| / BBS in a Box 5
/ BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MCLUTILS.CPT / oodles-of-utils / +Interfaces / +Files.lisp
| < prev | next > |
| MacBinary | 1991-10-23 | 19.9 KB | [TEXT/CCL2] |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 10% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | MacBinary II, Wed Oct 23 17:34:39 1991, modified Wed Oct 23 17:34:39 1991, creator Common Lisp 2, type ASCII, 19625 bytes "+Files.lisp" , at 0x4d29 416 bytes resource | default (weak) | |
| 99% | file | data | default | |
| 74% | TrID | Macintosh plain text (MacBinary) | default | |
| 25% | TrID | MacBinary 2 | default (weak) | |
| 100% | siegfried | fmt/1762 MacBinary (II) | default | |
| 100% | lsar | MacBinary | default |
| id metadata | |
|---|---|
| key | value |
| macFileType | [TEXT] |
| macFileCreator | [CCL2] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 2b 46 69 6c 65 73 | 2e 6c 69 73 70 00 00 00 |..+Files|.lisp...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 00 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 4c a9 00 | 00 01 a0 a5 2b 9b 6f a5 |.....L..|....+.o.|
|00000060| 2b 9b 6f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+.o.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 49 f0 00 00 |........|....I...|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 74 72 61 |(in-pack|age :tra|
|00000090| 70 73 29 0d 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ps).;;;;|;;;;;;;;|
|000000a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 0d 3b 3b 20 2b 46 |;;;;;;;;|;;.;; +F|
|000000e0| 69 6c 65 73 2e 4c 69 73 | 70 0d 3b 3b 0d 3b 3b 20 |iles.Lis|p.;;.;; |
|000000f0| 43 6f 70 79 72 69 67 68 | 74 20 a9 20 31 39 39 31 |Copyrigh|t . 1991|
|00000100| 20 4e 6f 72 74 68 77 65 | 73 74 65 72 6e 20 55 6e | Northwe|stern Un|
|00000110| 69 76 65 72 73 69 74 79 | 20 49 6e 73 74 69 74 75 |iversity| Institu|
|00000120| 74 65 20 66 6f 72 20 74 | 68 65 20 4c 65 61 72 6e |te for t|he Learn|
|00000130| 69 6e 67 20 53 63 69 65 | 6e 63 65 73 0d 3b 3b 20 |ing Scie|nces.;; |
|00000140| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00000150| 76 65 64 0d 3b 3b 0d 3b | 3b 20 61 75 74 68 6f 72 |ved.;;.;|; author|
|00000160| 73 3a 20 54 61 6d 61 72 | 20 4f 66 66 65 72 2d 59 |s: Tamar| Offer-Y|
|00000170| 65 68 6f 73 68 75 61 0d | 3b 3b 20 20 20 20 20 20 |ehoshua.|;; |
|00000180| 20 20 20 20 4d 69 63 68 | 61 65 6c 20 53 2e 20 45 | Mich|ael S. E|
|00000190| 6e 67 62 65 72 0d 3b 3b | 20 20 20 20 20 20 20 20 |ngber.;;| |
|000001a0| 20 20 0d 3b 3b 20 50 72 | 6f 76 69 64 65 73 20 74 | .;; Pr|ovides t|
|000001b0| 68 65 20 48 69 67 68 20 | 4c 65 76 65 6c 20 5b 4e |he High |Level [N|
|000001c0| 6f 74 20 69 6e 20 52 4f | 4d 5d 20 46 69 6c 65 20 |ot in RO|M] File |
|000001d0| 4d 61 6e 61 67 65 72 20 | 52 6f 75 74 69 6e 65 73 |Manager |Routines|
|000001e0| 0d 3b 3b 20 66 72 6f 6d | 20 49 4d 20 49 56 20 70 |.;; from| IM IV p|
|000001f0| 70 2e 31 30 36 2d 31 31 | 35 20 61 6e 64 20 49 4d |p.106-11|5 and IM|
|00000200| 20 56 49 20 70 70 2e 20 | 32 35 2e 33 34 2d 32 35 | VI pp. |25.34-25|
|00000210| 2e 33 37 20 28 61 6e 64 | 20 54 4e 23 32 31 38 29 |.37 (and| TN#218)|
|00000220| 0d 3b 3b 0d 3b 3b 20 41 | 6c 73 6f 20 70 72 6f 76 |.;;.;; A|lso prov|
|00000230| 69 64 65 73 20 73 6f 6d | 65 20 22 69 6e 20 52 4f |ides som|e "in RO|
|00000240| 4d 22 20 74 72 61 70 73 | 20 74 68 61 74 20 77 65 |M" traps| that we|
|00000250| 72 65 20 6f 6d 69 74 74 | 65 64 20 66 72 6f 6d 20 |re omitt|ed from |
|00000260| 46 69 6c 65 73 2e 6c 69 | 73 70 0d 3b 3b 0d 3b 3b |Files.li|sp.;;.;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002b0| 3b 3b 3b 3b 0d 0d 28 75 | 73 65 2d 70 61 63 6b 61 |;;;;..(u|se-packa|
|000002c0| 67 65 20 3a 63 63 6c 29 | 0d 0d 3b 3b 3b 3b 3b 3b |ge :ccl)|..;;;;;;|
|000002d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 3b 3b 3b |;;;;;;;;|;;;;.;;;|
|00000300| 20 6f 6d 69 73 73 69 6f | 6e 73 20 66 72 6f 6d 20 | omissio|ns from |
|00000310| 46 69 6c 65 73 2e 6c 69 | 73 70 0d 0d 28 64 65 66 |Files.li|sp..(def|
|00000320| 74 72 61 70 20 5f 70 62 | 6d 6f 75 6e 74 76 6f 6c |trap _pb|mountvol|
|00000330| 73 79 6e 63 20 28 28 70 | 61 72 61 6d 62 6c 6f 63 |sync ((p|arambloc|
|00000340| 6b 20 28 3a 70 6f 69 6e | 74 65 72 20 70 61 72 61 |k (:poin|ter para|
|00000350| 6d 62 6c 6f 63 6b 72 65 | 63 29 29 29 0d 20 20 20 |mblockre|c))). |
|00000360| 28 3a 64 30 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |(:d0 :si|gned-int|
|00000370| 65 67 65 72 29 0d 20 20 | 20 28 3a 72 65 67 69 73 |eger). | (:regis|
|00000380| 74 65 72 2d 74 72 61 70 | 20 23 78 41 30 30 46 20 |ter-trap| #xA00F |
|00000390| 3a 61 30 20 70 61 72 61 | 6d 62 6c 6f 63 6b 29 29 |:a0 para|mblock))|
|000003a0| 0d 0d 28 64 65 66 74 72 | 61 70 20 5f 70 62 75 6e |..(deftr|ap _pbun|
|000003b0| 6d 6f 75 6e 74 76 6f 6c | 73 79 6e 63 20 28 28 70 |mountvol|sync ((p|
|000003c0| 61 72 61 6d 62 6c 6f 63 | 6b 20 28 3a 70 6f 69 6e |arambloc|k (:poin|
|000003d0| 74 65 72 20 70 61 72 61 | 6d 62 6c 6f 63 6b 72 65 |ter para|mblockre|
|000003e0| 63 29 29 29 0d 20 20 20 | 28 3a 64 30 20 3a 73 69 |c))). |(:d0 :si|
|000003f0| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 0d 20 20 |gned-int|eger). |
|00000400| 20 28 3a 72 65 67 69 73 | 74 65 72 2d 74 72 61 70 | (:regis|ter-trap|
|00000410| 20 23 78 41 30 30 45 20 | 3a 61 30 20 70 61 72 61 | #xA00E |:a0 para|
|00000420| 6d 62 6c 6f 63 6b 29 29 | 0d 0d 28 64 65 66 74 72 |mblock))|..(deftr|
|00000430| 61 70 20 5f 70 62 6f 66 | 66 6c 69 6e 65 73 79 6e |ap _pbof|flinesyn|
|00000440| 63 20 28 28 70 61 72 61 | 6d 62 6c 6f 63 6b 20 28 |c ((para|mblock (|
|00000450| 3a 70 6f 69 6e 74 65 72 | 20 70 61 72 61 6d 62 6c |:pointer| parambl|
|00000460| 6f 63 6b 72 65 63 29 29 | 29 0d 20 20 20 28 3a 64 |ockrec))|). (:d|
|00000470| 30 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |0 :signe|d-intege|
|00000480| 72 29 0d 20 20 20 28 3a | 72 65 67 69 73 74 65 72 |r). (:|register|
|00000490| 2d 74 72 61 70 20 23 78 | 41 30 33 35 20 3a 61 30 |-trap #x|A035 :a0|
|000004a0| 20 70 61 72 61 6d 62 6c | 6f 63 6b 29 29 0d 0d 28 | parambl|ock))..(|
|000004b0| 64 65 66 74 72 61 70 20 | 5f 70 62 65 6a 65 63 74 |deftrap |_pbeject|
|000004c0| 73 79 6e 63 20 28 28 70 | 61 72 61 6d 62 6c 6f 63 |sync ((p|arambloc|
|000004d0| 6b 20 28 3a 70 6f 69 6e | 74 65 72 20 70 61 72 61 |k (:poin|ter para|
|000004e0| 6d 62 6c 6f 63 6b 72 65 | 63 29 29 29 0d 20 20 20 |mblockre|c))). |
|000004f0| 28 3a 64 30 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |(:d0 :si|gned-int|
|00000500| 65 67 65 72 29 0d 20 20 | 20 28 3a 72 65 67 69 73 |eger). | (:regis|
|00000510| 74 65 72 2d 74 72 61 70 | 20 23 78 41 30 31 37 20 |ter-trap| #xA017 |
|00000520| 3a 61 30 20 70 61 72 61 | 6d 62 6c 6f 63 6b 29 29 |:a0 para|mblock))|
|00000530| 0d 0d 28 64 65 66 74 72 | 61 70 20 5f 70 62 65 6a |..(deftr|ap _pbej|
|00000540| 65 63 74 61 73 79 6e 63 | 20 28 28 70 61 72 61 6d |ectasync| ((param|
|00000550| 62 6c 6f 63 6b 20 28 3a | 70 6f 69 6e 74 65 72 20 |block (:|pointer |
|00000560| 70 61 72 61 6d 62 6c 6f | 63 6b 72 65 63 29 29 29 |paramblo|ckrec)))|
|00000570| 0d 20 20 20 28 3a 64 30 | 20 3a 73 69 67 6e 65 64 |. (:d0| :signed|
|00000580| 2d 69 6e 74 65 67 65 72 | 29 0d 20 20 20 28 3a 72 |-integer|). (:r|
|00000590| 65 67 69 73 74 65 72 2d | 74 72 61 70 20 23 78 41 |egister-|trap #xA|
|000005a0| 34 31 37 20 3a 61 30 20 | 70 61 72 61 6d 62 6c 6f |417 :a0 |paramblo|
|000005b0| 63 6b 29 29 0d 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ck))..;;|;;;;;;;;|
|000005c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000005d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000005e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000005f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 3b 3b 3b |;;;;;;;;|;;;;.;;;|
|00000600| 20 41 63 63 65 73 73 69 | 6e 67 20 56 6f 6c 75 6d | Accessi|ng Volum|
|00000610| 65 73 20 2d 20 49 4d 20 | 49 56 20 70 70 2e 20 31 |es - IM |IV pp. 1|
|00000620| 30 37 2d 31 30 38 0d 0d | 28 64 65 66 74 72 61 70 |07-108..|(deftrap|
|00000630| 20 5f 47 65 74 56 49 6e | 66 6f 20 28 28 64 72 76 | _GetVIn|fo ((drv|
|00000640| 4e 75 6d 20 3a 73 69 67 | 6e 65 64 2d 69 6e 74 65 |Num :sig|ned-inte|
|00000650| 67 65 72 29 20 28 76 6f | 6c 4e 61 6d 65 20 28 3a |ger) (vo|lName (:|
|00000660| 70 6f 69 6e 74 65 72 20 | 28 3a 73 74 72 69 6e 67 |pointer |(:string|
|00000670| 20 32 35 35 29 29 29 20 | 28 76 52 65 66 4e 75 6d | 255))) |(vRefNum|
|00000680| 20 28 3a 70 6f 69 6e 74 | 65 72 20 3a 73 69 67 6e | (:point|er :sign|
|00000690| 65 64 2d 69 6e 74 65 67 | 65 72 29 29 20 28 66 72 |ed-integ|er)) (fr|
|000006a0| 65 65 42 79 74 65 73 20 | 28 3a 70 6f 69 6e 74 65 |eeBytes |(:pointe|
|000006b0| 72 20 3a 73 69 67 6e 65 | 64 2d 6c 6f 6e 67 29 29 |r :signe|d-long))|
|000006c0| 29 0d 20 20 28 3a 6e 6f | 2d 74 72 61 70 20 3a 4f |). (:no|-trap :O|
|000006d0| 53 45 72 72 29 0d 20 20 | 28 3a 6e 6f 2d 74 72 61 |SErr). |(:no-tra|
|000006e0| 70 20 28 72 6c 65 74 20 | 28 28 70 62 20 3a 48 50 |p (rlet |((pb :HP|
|000006f0| 61 72 61 6d 42 6c 6f 63 | 6b 52 65 63 20 0d 20 20 |aramBloc|kRec . |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000710| 20 20 20 20 20 3a 69 6f | 4e 61 6d 65 50 74 72 20 | :io|NamePtr |
|00000720| 76 6f 6c 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |volName.| |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00000740| 69 6f 56 52 65 66 4e 75 | 6d 20 64 72 76 4e 75 6d |ioVRefNu|m drvNum|
|00000750| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000760| 20 20 20 20 20 20 20 20 | 3a 69 6f 56 6f 6c 49 6e | |:ioVolIn|
|00000770| 64 65 78 20 30 29 29 0d | 20 20 20 20 20 20 20 20 |dex 0)).| |
|00000780| 20 20 20 20 20 20 28 70 | 72 6f 67 31 0d 20 20 20 | (p|rog1. |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 72 65 | | (re|
|000007a0| 71 75 69 72 65 2d 74 72 | 61 70 20 23 5f 50 42 48 |quire-tr|ap #_PBH|
|000007b0| 47 65 74 56 49 6e 66 6f | 53 79 6e 63 20 70 62 29 |GetVInfo|Sync pb)|
|000007c0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000007d0| 20 28 25 70 75 74 2d 77 | 6f 72 64 20 76 52 65 66 | (%put-w|ord vRef|
|000007e0| 4e 75 6d 20 28 70 72 65 | 66 20 70 62 20 3a 48 50 |Num (pre|f pb :HP|
|000007f0| 61 72 61 6d 42 6c 6f 63 | 6b 52 65 63 2e 69 6f 56 |aramBloc|kRec.ioV|
|00000800| 52 65 66 4e 75 6d 29 29 | 0d 20 20 20 20 20 20 20 |RefNum))|. |
|00000810| 20 20 20 20 20 20 20 20 | 20 28 25 70 75 74 2d 6c | | (%put-l|
|00000820| 6f 6e 67 20 66 72 65 65 | 42 79 74 65 73 20 20 28 |ong free|Bytes (|
|00000830| 2a 20 28 70 72 65 66 20 | 70 62 20 3a 48 50 61 72 |* (pref |pb :HPar|
|00000840| 61 6d 42 6c 6f 63 6b 52 | 65 63 2e 69 6f 56 41 6c |amBlockR|ec.ioVAl|
|00000850| 42 6c 6b 53 69 7a 29 0d | 20 20 20 20 20 20 20 20 |BlkSiz).| |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000880| 20 28 6c 6f 67 61 6e 64 | 20 23 78 46 46 46 46 20 | (logand| #xFFFF |
|00000890| 28 70 72 65 66 20 70 62 | 20 3a 48 50 61 72 61 6d |(pref pb| :HParam|
|000008a0| 42 6c 6f 63 6b 52 65 63 | 2e 69 6f 56 46 72 42 6c |BlockRec|.ioVFrBl|
|000008b0| 6b 29 29 29 29 29 29 29 | 29 0d 0d 28 64 65 66 74 |k)))))))|)..(deft|
|000008c0| 72 61 70 20 5f 47 65 74 | 56 52 65 66 4e 75 6d 20 |rap _Get|VRefNum |
|000008d0| 28 28 66 69 6c 65 52 65 | 66 4e 75 6d 20 3a 73 69 |((fileRe|fNum :si|
|000008e0| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 20 28 76 |gned-int|eger) (v|
|000008f0| 52 65 66 4e 75 6d 20 28 | 3a 70 6f 69 6e 74 65 72 |RefNum (|:pointer|
|00000900| 20 3a 73 69 67 6e 65 64 | 2d 69 6e 74 65 67 65 72 | :signed|-integer|
|00000910| 29 29 29 0d 20 20 28 3a | 6e 6f 2d 74 72 61 70 20 |))). (:|no-trap |
|00000920| 3a 4f 53 45 72 72 29 0d | 20 20 28 3a 6e 6f 2d 74 |:OSErr).| (:no-t|
|00000930| 72 61 70 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |rap (rle|t ((pb :|
|00000940| 46 43 42 50 42 52 65 63 | 0d 20 20 20 20 20 20 20 |FCBPBRec|. |
|00000950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000960| 3a 69 6f 4e 61 6d 65 50 | 74 72 20 28 25 6e 75 6c |:ioNameP|tr (%nul|
|00000970| 6c 2d 70 74 72 29 0d 20 | 20 20 20 20 20 20 20 20 |l-ptr). | |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00000990| 6f 56 52 65 66 4e 75 6d | 20 30 0d 20 20 20 20 20 |oVRefNum| 0. |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009b0| 20 20 3a 69 6f 52 65 66 | 4e 75 6d 20 66 69 6c 65 | :ioRef|Num file|
|000009c0| 52 65 66 4e 75 6d 0d 20 | 20 20 20 20 20 20 20 20 |RefNum. | |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|000009e0| 6f 46 43 42 49 6e 64 78 | 20 30 29 29 0d 20 20 20 |oFCBIndx| 0)). |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 28 70 72 6f 67 | | (prog|
|00000a00| 31 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|00000a10| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|00000a20| 23 5f 50 42 47 65 74 46 | 43 42 49 6e 66 6f 53 79 |#_PBGetF|CBInfoSy|
|00000a30| 6e 63 20 70 62 29 0d 20 | 20 20 20 20 20 20 20 20 |nc pb). | |
|00000a40| 20 20 20 20 20 20 20 28 | 25 70 75 74 2d 77 6f 72 | (|%put-wor|
|00000a50| 64 20 76 52 65 66 4e 75 | 6d 20 28 70 72 65 66 20 |d vRefNu|m (pref |
|00000a60| 70 62 20 3a 46 43 42 50 | 42 52 65 63 2e 69 6f 46 |pb :FCBP|BRec.ioF|
|00000a70| 43 42 56 52 65 66 4e 75 | 6d 29 29 29 29 29 29 0d |CBVRefNu|m)))))).|
|00000a80| 0d 28 64 65 66 74 72 61 | 70 20 5f 47 65 74 56 6f |.(deftra|p _GetVo|
|00000a90| 6c 20 28 28 76 6f 6c 4e | 61 6d 65 20 28 3a 70 6f |l ((volN|ame (:po|
|00000aa0| 69 6e 74 65 72 20 28 3a | 73 74 72 69 6e 67 20 32 |inter (:|string 2|
|00000ab0| 35 35 29 29 29 20 28 76 | 52 65 66 4e 75 6d 20 28 |55))) (v|RefNum (|
|00000ac0| 3a 70 6f 69 6e 74 65 72 | 20 3a 73 69 67 6e 65 64 |:pointer| :signed|
|00000ad0| 2d 69 6e 74 65 67 65 72 | 29 29 29 0d 20 20 28 3a |-integer|))). (:|
|00000ae0| 6e 6f 2d 74 72 61 70 20 | 3a 4f 53 45 72 72 29 0d |no-trap |:OSErr).|
|00000af0| 20 20 28 3a 6e 6f 2d 74 | 72 61 70 20 28 72 6c 65 | (:no-t|rap (rle|
|00000b00| 74 20 28 28 70 62 20 3a | 50 61 72 61 6d 42 6c 6f |t ((pb :|ParamBlo|
|00000b10| 63 6b 52 65 63 0d 20 20 | 20 20 20 20 20 20 20 20 |ckRec. | |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00000b30| 4e 61 6d 65 50 74 72 20 | 76 6f 6c 4e 61 6d 65 29 |NamePtr |volName)|
|00000b40| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|00000b50| 28 70 72 6f 67 31 0d 20 | 20 20 20 20 20 20 20 20 |(prog1. | |
|00000b60| 20 20 20 20 20 20 20 28 | 72 65 71 75 69 72 65 2d | (|require-|
|00000b70| 74 72 61 70 20 23 5f 50 | 42 47 65 74 56 6f 6c 53 |trap #_P|BGetVolS|
|00000b80| 79 6e 63 20 70 62 29 0d | 20 20 20 20 20 20 20 20 |ync pb).| |
|00000b90| 20 20 20 20 20 20 20 20 | 28 25 70 75 74 2d 77 6f | |(%put-wo|
|00000ba0| 72 64 20 76 52 65 66 4e | 75 6d 20 28 70 72 65 66 |rd vRefN|um (pref|
|00000bb0| 20 70 62 20 3a 50 61 72 | 61 6d 42 6c 6f 63 6b 52 | pb :Par|amBlockR|
|00000bc0| 65 63 2e 69 6f 56 52 65 | 66 4e 75 6d 29 29 29 29 |ec.ioVRe|fNum))))|
|00000bd0| 29 29 0d 0d 28 64 65 66 | 74 72 61 70 20 5f 53 65 |))..(def|trap _Se|
|00000be0| 74 56 6f 6c 20 28 28 76 | 6f 6c 4e 61 6d 65 20 28 |tVol ((v|olName (|
|00000bf0| 3a 70 6f 69 6e 74 65 72 | 20 28 3a 73 74 72 69 6e |:pointer| (:strin|
|00000c00| 67 20 32 35 35 29 29 29 | 20 28 76 52 65 66 4e 75 |g 255)))| (vRefNu|
|00000c10| 6d 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |m :signe|d-intege|
|00000c20| 72 29 29 0d 20 20 28 3a | 6e 6f 2d 74 72 61 70 20 |r)). (:|no-trap |
|00000c30| 3a 4f 53 45 72 72 29 0d | 20 20 28 3a 6e 6f 2d 74 |:OSErr).| (:no-t|
|00000c40| 72 61 70 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |rap (rle|t ((pb :|
|00000c50| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 0d 20 20 |ParamBlo|ckRec. |
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c70| 20 20 20 20 20 3a 69 6f | 4e 61 6d 65 50 74 72 20 | :io|NamePtr |
|00000c80| 76 6f 6c 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |volName.| |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00000ca0| 69 6f 56 52 65 66 4e 75 | 6d 20 76 52 65 66 4e 75 |ioVRefNu|m vRefNu|
|00000cb0| 6d 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |m)). | |
|00000cc0| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|00000cd0| 23 5f 50 42 53 65 74 56 | 6f 6c 53 79 6e 63 20 70 |#_PBSetV|olSync p|
|00000ce0| 62 29 29 29 29 0d 0d 28 | 64 65 66 74 72 61 70 20 |b))))..(|deftrap |
|00000cf0| 5f 46 6c 75 73 68 56 6f | 6c 20 28 28 76 6f 6c 4e |_FlushVo|l ((volN|
|00000d00| 61 6d 65 20 28 3a 70 6f | 69 6e 74 65 72 20 28 3a |ame (:po|inter (:|
|00000d10| 73 74 72 69 6e 67 20 32 | 35 35 29 29 29 20 28 76 |string 2|55))) (v|
|00000d20| 52 65 66 4e 75 6d 20 3a | 73 69 67 6e 65 64 2d 69 |RefNum :|signed-i|
|00000d30| 6e 74 65 67 65 72 29 29 | 0d 20 20 28 3a 6e 6f 2d |nteger))|. (:no-|
|00000d40| 74 72 61 70 20 3a 4f 53 | 45 72 72 29 0d 20 20 28 |trap :OS|Err). (|
|00000d50| 3a 6e 6f 2d 74 72 61 70 | 20 28 72 6c 65 74 20 28 |:no-trap| (rlet (|
|00000d60| 28 70 62 20 3a 50 61 72 | 61 6d 42 6c 6f 63 6b 52 |(pb :Par|amBlockR|
|00000d70| 65 63 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec. | |
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 4e 61 6d | | :ioNam|
|00000d90| 65 50 74 72 20 76 6f 6c | 4e 61 6d 65 0d 20 20 20 |ePtr vol|Name. |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000db0| 20 20 20 20 3a 69 6f 56 | 52 65 66 4e 75 6d 20 76 | :ioV|RefNum v|
|00000dc0| 52 65 66 4e 75 6d 29 29 | 0d 20 20 20 20 20 20 20 |RefNum))|. |
|00000dd0| 20 20 20 20 20 20 20 28 | 72 65 71 75 69 72 65 2d | (|require-|
|00000de0| 74 72 61 70 20 23 5f 50 | 42 46 6c 75 73 68 56 6f |trap #_P|BFlushVo|
|00000df0| 6c 53 79 6e 63 20 70 62 | 29 29 29 29 0d 0d 28 64 |lSync pb|))))..(d|
|00000e00| 65 66 74 72 61 70 20 5f | 55 6e 6d 6f 75 6e 74 56 |eftrap _|UnmountV|
|00000e10| 6f 6c 20 28 28 76 6f 6c | 4e 61 6d 65 20 28 3a 70 |ol ((vol|Name (:p|
|00000e20| 6f 69 6e 74 65 72 20 28 | 3a 73 74 72 69 6e 67 20 |ointer (|:string |
|00000e30| 32 35 35 29 29 29 20 28 | 76 52 65 66 4e 75 6d 20 |255))) (|vRefNum |
|00000e40| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|00000e50| 29 0d 20 20 28 3a 6e 6f | 2d 74 72 61 70 20 3a 4f |). (:no|-trap :O|
|00000e60| 53 45 72 72 29 0d 20 20 | 28 3a 6e 6f 2d 74 72 61 |SErr). |(:no-tra|
|00000e70| 70 20 28 72 6c 65 74 20 | 28 28 70 62 20 3a 50 61 |p (rlet |((pb :Pa|
|00000e80| 72 61 6d 42 6c 6f 63 6b | 52 65 63 0d 20 20 20 20 |ramBlock|Rec. |
|00000e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ea0| 20 20 20 3a 69 6f 4e 61 | 6d 65 50 74 72 20 76 6f | :ioNa|mePtr vo|
|00000eb0| 6c 4e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 20 20 |lName. | |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00000ed0| 56 52 65 66 4e 75 6d 20 | 76 52 65 66 4e 75 6d 29 |VRefNum |vRefNum)|
|00000ee0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|00000ef0| 28 72 65 71 75 69 72 65 | 2d 74 72 61 70 20 23 5f |(require|-trap #_|
|00000f00| 50 42 55 6e 6d 6f 75 6e | 74 56 6f 6c 53 79 6e 63 |PBUnmoun|tVolSync|
|00000f10| 20 70 62 29 29 29 29 0d | 0d 28 64 65 66 74 72 61 | pb)))).|.(deftra|
|00000f20| 70 20 5f 4f 66 66 4c 69 | 6e 65 20 28 28 76 6f 6c |p _OffLi|ne ((vol|
|00000f30| 4e 61 6d 65 20 28 3a 70 | 6f 69 6e 74 65 72 20 28 |Name (:p|ointer (|
|00000f40| 3a 73 74 72 69 6e 67 20 | 32 35 35 29 29 29 20 28 |:string |255))) (|
|00000f50| 76 52 65 66 4e 75 6d 20 | 3a 73 69 67 6e 65 64 2d |vRefNum |:signed-|
|00000f60| 69 6e 74 65 67 65 72 29 | 29 0d 20 20 28 3a 6e 6f |integer)|). (:no|
|00000f70| 2d 74 72 61 70 20 3a 4f | 53 45 72 72 29 0d 20 20 |-trap :O|SErr). |
|00000f80| 28 3a 6e 6f 2d 74 72 61 | 70 20 28 72 6c 65 74 20 |(:no-tra|p (rlet |
|00000f90| 28 28 70 62 20 3a 50 61 | 72 61 6d 42 6c 6f 63 6b |((pb :Pa|ramBlock|
|00000fa0| 52 65 63 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |Rec. | |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4e 61 | | :ioNa|
|00000fc0| 6d 65 50 74 72 20 76 6f | 6c 4e 61 6d 65 0d 20 20 |mePtr vo|lName. |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fe0| 20 20 20 20 20 3a 69 6f | 56 52 65 66 4e 75 6d 20 | :io|VRefNum |
|00000ff0| 76 52 65 66 4e 75 6d 29 | 29 0d 20 20 20 20 20 20 |vRefNum)|). |
|00001000| 20 20 20 20 20 20 20 20 | 28 72 65 71 75 69 72 65 | |(require|
|00001010| 2d 74 72 61 70 20 23 5f | 50 42 4f 66 66 4c 69 6e |-trap #_|PBOffLin|
|00001020| 65 53 79 6e 63 20 70 62 | 29 29 29 29 0d 0d 28 64 |eSync pb|))))..(d|
|00001030| 65 66 74 72 61 70 20 5f | 45 6a 65 63 74 20 28 28 |eftrap _|Eject ((|
|00001040| 76 6f 6c 4e 61 6d 65 20 | 28 3a 70 6f 69 6e 74 65 |volName |(:pointe|
|00001050| 72 20 28 3a 73 74 72 69 | 6e 67 20 32 35 35 29 29 |r (:stri|ng 255))|
|00001060| 29 20 28 76 52 65 66 4e | 75 6d 20 3a 73 69 67 6e |) (vRefN|um :sign|
|00001070| 65 64 2d 69 6e 74 65 67 | 65 72 29 29 0d 20 20 28 |ed-integ|er)). (|
|00001080| 3a 6e 6f 2d 74 72 61 70 | 20 3a 4f 53 45 72 72 29 |:no-trap| :OSErr)|
|00001090| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 28 72 6c |. (:no-|trap (rl|
|000010a0| 65 74 20 28 28 70 62 20 | 3a 50 61 72 61 6d 42 6c |et ((pb |:ParamBl|
|000010b0| 6f 63 6b 52 65 63 0d 20 | 20 20 20 20 20 20 20 20 |ockRec. | |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|000010d0| 6f 4e 61 6d 65 50 74 72 | 20 76 6f 6c 4e 61 6d 65 |oNamePtr| volName|
|000010e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000010f0| 20 20 20 20 20 20 20 20 | 3a 69 6f 56 52 65 66 4e | |:ioVRefN|
|00001100| 75 6d 20 76 52 65 66 4e | 75 6d 29 29 0d 20 20 20 |um vRefN|um)). |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 28 72 65 71 75 | | (requ|
|00001120| 69 72 65 2d 74 72 61 70 | 20 23 5f 50 42 45 6a 65 |ire-trap| #_PBEje|
|00001130| 63 74 53 79 6e 63 20 70 | 62 29 29 29 29 0d 0d 0d |ctSync p|b))))...|
|00001140| 0d 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |.;;;;;;;|;;;;;;;;|
|00001150| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001160| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001170| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001180| 3b 3b 3b 3b 3b 3b 3b 0d | 3b 3b 3b 20 41 63 63 65 |;;;;;;;.|;;; Acce|
|00001190| 73 73 69 6e 67 20 46 69 | 6c 65 73 20 2d 20 49 4d |ssing Fi|les - IM|
|000011a0| 20 49 56 20 70 70 2e 20 | 31 30 39 2d 31 31 32 0d | IV pp. |109-112.|
|000011b0| 0d 28 64 65 66 74 72 61 | 70 20 5f 46 53 4f 70 65 |.(deftra|p _FSOpe|
|000011c0| 6e 20 28 28 66 69 6c 65 | 4e 61 6d 65 20 28 3a 73 |n ((file|Name (:s|
|000011d0| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 76 52 65 |tring 25|5)) (vRe|
|000011e0| 66 4e 75 6d 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |fNum :si|gned-int|
|000011f0| 65 67 65 72 29 20 28 72 | 65 66 4e 75 6d 20 28 3a |eger) (r|efNum (:|
|00001200| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|00001210| 69 6e 74 65 67 65 72 29 | 29 29 0d 20 20 28 3a 6e |integer)|)). (:n|
|00001220| 6f 2d 74 72 61 70 20 3a | 4f 53 45 72 72 29 0d 20 |o-trap :|OSErr). |
|00001230| 20 28 3a 6e 6f 2d 74 72 | 61 70 20 28 72 6c 65 74 | (:no-tr|ap (rlet|
|00001240| 20 28 28 70 62 20 3a 50 | 61 72 61 6d 42 6c 6f 63 | ((pb :P|aramBloc|
|00001250| 6b 52 65 63 20 0d 20 20 | 20 20 20 20 20 20 20 20 |kRec . | |
|00001260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00001270| 4e 61 6d 65 50 74 72 20 | 66 69 6c 65 4e 61 6d 65 |NamePtr |fileName|
|00001280| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001290| 20 20 20 20 20 20 20 20 | 3a 69 6f 56 52 65 66 4e | |:ioVRefN|
|000012a0| 75 6d 20 76 52 65 66 4e | 75 6d 0d 20 20 20 20 20 |um vRefN|um. |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012c0| 20 20 3a 69 6f 56 65 72 | 73 4e 75 6d 20 30 0d 20 | :ioVer|sNum 0. |
|000012d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012e0| 20 20 20 20 20 20 3a 69 | 6f 50 65 72 6d 73 73 6e | :i|oPermssn|
|000012f0| 20 23 24 66 73 43 75 72 | 50 65 72 6d 0d 20 20 20 | #$fsCur|Perm. |
|00001300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001310| 20 20 20 20 3a 69 6f 4d | 69 73 63 20 28 25 6e 75 | :ioM|isc (%nu|
|00001320| 6c 6c 2d 70 74 72 29 29 | 29 0d 20 20 20 20 20 20 |ll-ptr))|). |
|00001330| 20 20 20 20 20 20 20 20 | 28 70 72 6f 67 31 0d 20 | |(prog1. |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00001350| 72 65 71 75 69 72 65 2d | 74 72 61 70 20 23 5f 50 |require-|trap #_P|
|00001360| 42 4f 70 65 6e 53 79 6e | 63 20 70 62 29 0d 20 20 |BOpenSyn|c pb). |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 25 | | (%|
|00001380| 70 75 74 2d 77 6f 72 64 | 20 72 65 66 4e 75 6d 20 |put-word| refNum |
|00001390| 28 70 72 65 66 20 70 62 | 20 3a 50 61 72 61 6d 42 |(pref pb| :ParamB|
|000013a0| 6c 6f 63 6b 52 65 63 2e | 69 6f 52 65 66 4e 75 6d |lockRec.|ioRefNum|
|000013b0| 29 29 29 29 29 29 0d 0d | 28 64 65 66 74 72 61 70 |))))))..|(deftrap|
|000013c0| 20 5f 4f 70 65 6e 52 46 | 20 28 28 66 69 6c 65 4e | _OpenRF| ((fileN|
|000013d0| 61 6d 65 20 28 3a 73 74 | 72 69 6e 67 20 32 35 35 |ame (:st|ring 255|
|000013e0| 29 29 20 28 76 52 65 66 | 4e 75 6d 20 3a 73 69 67 |)) (vRef|Num :sig|
|000013f0| 6e 65 64 2d 69 6e 74 65 | 67 65 72 29 20 28 72 65 |ned-inte|ger) (re|
|00001400| 66 4e 75 6d 20 28 3a 70 | 6f 69 6e 74 65 72 20 3a |fNum (:p|ointer :|
|00001410| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 29 29 |signed-i|nteger))|
|00001420| 29 0d 20 20 28 3a 6e 6f | 2d 74 72 61 70 20 3a 4f |). (:no|-trap :O|
|00001430| 53 45 72 72 29 0d 20 20 | 28 3a 6e 6f 2d 74 72 61 |SErr). |(:no-tra|
|00001440| 70 20 28 72 6c 65 74 20 | 28 28 70 62 20 3a 50 61 |p (rlet |((pb :Pa|
|00001450| 72 61 6d 42 6c 6f 63 6b | 52 65 63 20 0d 20 20 20 |ramBlock|Rec . |
|00001460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001470| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 66 | :ioN|amePtr f|
|00001480| 69 6c 65 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |ileName.| |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|000014a0| 69 6f 56 52 65 66 4e 75 | 6d 20 76 52 65 66 4e 75 |ioVRefNu|m vRefNu|
|000014b0| 6d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m. | |
|000014c0| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 56 65 72 73 | | :ioVers|
|000014d0| 4e 75 6d 20 30 0d 20 20 | 20 20 20 20 20 20 20 20 |Num 0. | |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|000014f0| 50 65 72 6d 73 73 6e 20 | 23 24 66 73 43 75 72 50 |Permssn |#$fsCurP|
|00001500| 65 72 6d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |erm. | |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4d 69 | | :ioMi|
|00001520| 73 63 20 28 25 6e 75 6c | 6c 2d 70 74 72 29 29 29 |sc (%nul|l-ptr)))|
|00001530| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |. | (|
|00001540| 70 72 6f 67 31 0d 20 20 | 20 20 20 20 20 20 20 20 |prog1. | |
|00001550| 20 20 20 20 20 20 28 72 | 65 71 75 69 72 65 2d 74 | (r|equire-t|
|00001560| 72 61 70 20 23 5f 50 42 | 4f 70 65 6e 52 46 53 79 |rap #_PB|OpenRFSy|
|00001570| 6e 63 20 70 62 29 0d 20 | 20 20 20 20 20 20 20 20 |nc pb). | |
|00001580| 20 20 20 20 20 20 20 28 | 25 70 75 74 2d 77 6f 72 | (|%put-wor|
|00001590| 64 20 72 65 66 4e 75 6d | 20 28 70 72 65 66 20 70 |d refNum| (pref p|
|000015a0| 62 20 3a 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 |b :Param|BlockRec|
|000015b0| 2e 69 6f 52 65 66 4e 75 | 6d 29 29 29 29 29 29 0d |.ioRefNu|m)))))).|
|000015c0| 20 0d 3b 5f 46 53 52 65 | 61 64 20 20 64 65 66 69 | .;_FSRe|ad defi|
|000015d0| 6e 65 64 20 69 6e 20 2b | 44 65 76 69 63 65 73 2e |ned in +|Devices.|
|000015e0| 6c 69 73 70 0d 0d 3b 5f | 46 53 57 72 69 74 65 20 |lisp..;_|FSWrite |
|000015f0| 64 65 66 69 6e 65 64 20 | 69 6e 20 2b 44 65 76 69 |defined |in +Devi|
|00001600| 63 65 73 2e 6c 69 73 70 | 0d 0d 28 64 65 66 74 72 |ces.lisp|..(deftr|
|00001610| 61 70 20 5f 47 65 74 46 | 50 6f 73 20 28 28 72 65 |ap _GetF|Pos ((re|
|00001620| 66 4e 75 6d 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |fNum :si|gned-int|
|00001630| 65 67 65 72 29 20 28 66 | 69 6c 65 50 6f 73 20 28 |eger) (f|ilePos (|
|00001640| 3a 70 6f 69 6e 74 65 72 | 20 3a 73 69 67 6e 65 64 |:pointer| :signed|
|00001650| 2d 6c 6f 6e 67 29 29 29 | 0d 20 20 28 3a 6e 6f 2d |-long)))|. (:no-|
|00001660| 74 72 61 70 20 3a 4f 53 | 45 72 72 29 0d 20 20 28 |trap :OS|Err). (|
|00001670| 3a 6e 6f 2d 74 72 61 70 | 20 28 72 6c 65 74 20 28 |:no-trap| (rlet (|
|00001680| 28 70 62 20 3a 50 61 72 | 61 6d 42 6c 6f 63 6b 52 |(pb :Par|amBlockR|
|00001690| 65 63 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec. | |
|000016a0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 52 65 66 | | :ioRef|
|000016b0| 4e 75 6d 20 72 65 66 4e | 75 6d 29 29 0d 20 20 20 |Num refN|um)). |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 28 70 72 6f 67 | | (prog|
|000016d0| 31 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|000016e0| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|000016f0| 23 5f 50 42 47 65 74 46 | 50 6f 73 53 79 6e 63 20 |#_PBGetF|PosSync |
|00001700| 70 62 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |pb). | |
|00001710| 20 20 20 20 28 25 70 75 | 74 2d 6c 6f 6e 67 20 66 | (%pu|t-long f|
|00001720| 69 6c 65 50 6f 73 20 28 | 70 72 65 66 20 70 62 20 |ilePos (|pref pb |
|00001730| 3a 50 61 72 61 6d 42 6c | 6f 63 6b 52 65 63 2e 69 |:ParamBl|ockRec.i|
|00001740| 6f 50 6f 73 4f 66 66 73 | 65 74 29 29 29 29 29 29 |oPosOffs|et))))))|
|00001750| 0d 0d 28 64 65 66 74 72 | 61 70 20 5f 53 65 74 46 |..(deftr|ap _SetF|
|00001760| 50 6f 73 20 28 28 72 65 | 66 4e 75 6d 20 3a 73 69 |Pos ((re|fNum :si|
|00001770| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 20 28 70 |gned-int|eger) (p|
|00001780| 6f 73 4d 6f 64 65 20 3a | 73 69 67 6e 65 64 2d 69 |osMode :|signed-i|
|00001790| 6e 74 65 67 65 72 29 20 | 28 70 6f 73 4f 66 66 20 |nteger) |(posOff |
|000017a0| 3a 73 69 67 6e 65 64 2d | 6c 6f 6e 67 29 29 0d 20 |:signed-|long)). |
|000017b0| 20 28 3a 6e 6f 2d 74 72 | 61 70 20 3a 4f 53 45 72 | (:no-tr|ap :OSEr|
|000017c0| 72 29 0d 20 20 28 3a 6e | 6f 2d 74 72 61 70 20 28 |r). (:n|o-trap (|
|000017d0| 72 6c 65 74 20 28 28 70 | 62 20 3a 50 61 72 61 6d |rlet ((p|b :Param|
|000017e0| 42 6c 6f 63 6b 52 65 63 | 0d 20 20 20 20 20 20 20 |BlockRec|. |
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001800| 3a 69 6f 52 65 66 4e 75 | 6d 20 72 65 66 4e 75 6d |:ioRefNu|m refNum|
|00001810| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001820| 20 20 20 20 20 20 20 20 | 3a 69 6f 50 6f 73 4d 6f | |:ioPosMo|
|00001830| 64 65 20 70 6f 73 4d 6f | 64 65 0d 20 20 20 20 20 |de posMo|de. |
|00001840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001850| 20 20 3a 69 6f 50 6f 73 | 4f 66 66 73 65 74 20 70 | :ioPos|Offset p|
|00001860| 6f 73 4f 66 66 29 29 0d | 20 20 20 20 20 20 20 20 |osOff)).| |
|00001870| 20 20 20 20 20 20 28 72 | 65 71 75 69 72 65 2d 74 | (r|equire-t|
|00001880| 72 61 70 20 23 5f 50 42 | 53 65 74 46 50 6f 73 53 |rap #_PB|SetFPosS|
|00001890| 79 6e 63 20 70 62 29 29 | 29 29 0d 0d 28 64 65 66 |ync pb))|))..(def|
|000018a0| 74 72 61 70 20 5f 47 65 | 74 45 4f 46 20 28 28 72 |trap _Ge|tEOF ((r|
|000018b0| 65 66 4e 75 6d 20 3a 73 | 69 67 6e 65 64 2d 69 6e |efNum :s|igned-in|
|000018c0| 74 65 67 65 72 29 20 28 | 6c 6f 67 45 4f 46 20 28 |teger) (|logEOF (|
|000018d0| 3a 70 6f 69 6e 74 65 72 | 20 3a 73 69 67 6e 65 64 |:pointer| :signed|
|000018e0| 2d 6c 6f 6e 67 29 29 29 | 0d 20 20 28 3a 6e 6f 2d |-long)))|. (:no-|
|000018f0| 74 72 61 70 20 3a 4f 53 | 45 72 72 29 0d 20 20 28 |trap :OS|Err). (|
|00001900| 3a 6e 6f 2d 74 72 61 70 | 20 28 72 6c 65 74 20 28 |:no-trap| (rlet (|
|00001910| 28 70 62 20 3a 50 61 72 | 61 6d 42 6c 6f 63 6b 52 |(pb :Par|amBlockR|
|00001920| 65 63 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec. | |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 52 65 66 | | :ioRef|
|00001940| 4e 75 6d 20 72 65 66 4e | 75 6d 29 29 0d 20 20 20 |Num refN|um)). |
|00001950| 20 20 20 20 20 20 20 20 | 20 20 20 28 70 72 6f 67 | | (prog|
|00001960| 31 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|00001970| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|00001980| 23 5f 50 42 47 65 74 45 | 4f 46 53 79 6e 63 20 70 |#_PBGetE|OFSync p|
|00001990| 62 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |b). | |
|000019a0| 20 20 20 28 25 70 75 74 | 2d 6c 6f 6e 67 20 6c 6f | (%put|-long lo|
|000019b0| 67 45 4f 46 20 28 25 70 | 74 72 2d 74 6f 2d 69 6e |gEOF (%p|tr-to-in|
|000019c0| 74 20 28 70 72 65 66 20 | 70 62 20 3a 50 61 72 61 |t (pref |pb :Para|
|000019d0| 6d 42 6c 6f 63 6b 52 65 | 63 2e 69 6f 4d 69 73 63 |mBlockRe|c.ioMisc|
|000019e0| 29 29 29 29 29 29 29 0d | 0d 28 64 65 66 74 72 61 |))))))).|.(deftra|
|000019f0| 70 20 5f 53 65 74 45 4f | 46 20 28 28 72 65 66 4e |p _SetEO|F ((refN|
|00001a00| 75 6d 20 3a 73 69 67 6e | 65 64 2d 69 6e 74 65 67 |um :sign|ed-integ|
|00001a10| 65 72 29 20 28 6c 6f 67 | 45 4f 46 20 3a 73 69 67 |er) (log|EOF :sig|
|00001a20| 6e 65 64 2d 6c 6f 6e 67 | 29 29 0d 20 20 28 3a 6e |ned-long|)). (:n|
|00001a30| 6f 2d 74 72 61 70 20 3a | 4f 53 45 72 72 29 0d 20 |o-trap :|OSErr). |
|00001a40| 20 28 3a 6e 6f 2d 74 72 | 61 70 20 28 72 6c 65 74 | (:no-tr|ap (rlet|
|00001a50| 20 28 28 70 62 20 3a 50 | 61 72 61 6d 42 6c 6f 63 | ((pb :P|aramBloc|
|00001a60| 6b 52 65 63 0d 20 20 20 | 20 20 20 20 20 20 20 20 |kRec. | |
|00001a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 52 | | :ioR|
|00001a80| 65 66 4e 75 6d 20 72 65 | 66 4e 75 6d 0d 20 20 20 |efNum re|fNum. |
|00001a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001aa0| 20 20 20 20 3a 69 6f 4d | 69 73 63 20 28 25 69 6e | :ioM|isc (%in|
|00001ab0| 74 2d 74 6f 2d 70 74 72 | 20 6c 6f 67 45 4f 46 29 |t-to-ptr| logEOF)|
|00001ac0| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)). | |
|00001ad0| 20 28 72 65 71 75 69 72 | 65 2d 74 72 61 70 20 23 | (requir|e-trap #|
|00001ae0| 5f 50 42 53 65 74 45 4f | 46 53 79 6e 63 20 70 62 |_PBSetEO|FSync pb|
|00001af0| 29 29 29 29 0d 0d 28 64 | 65 66 74 72 61 70 20 5f |))))..(d|eftrap _|
|00001b00| 41 6c 6c 6f 63 61 74 65 | 20 28 28 72 65 66 4e 75 |Allocate| ((refNu|
|00001b10| 6d 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |m :signe|d-intege|
|00001b20| 72 29 20 28 63 6f 75 6e | 74 20 28 3a 70 6f 69 6e |r) (coun|t (:poin|
|00001b30| 74 65 72 20 3a 73 69 67 | 6e 65 64 2d 6c 6f 6e 67 |ter :sig|ned-long|
|00001b40| 29 29 29 0d 20 20 28 3a | 6e 6f 2d 74 72 61 70 20 |))). (:|no-trap |
|00001b50| 3a 4f 53 45 72 72 29 0d | 20 20 28 3a 6e 6f 2d 74 |:OSErr).| (:no-t|
|00001b60| 72 61 70 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |rap (rle|t ((pb :|
|00001b70| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 0d 20 20 |ParamBlo|ckRec. |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b90| 20 20 20 20 20 3a 69 6f | 52 65 66 4e 75 6d 20 72 | :io|RefNum r|
|00001ba0| 65 66 4e 75 6d 0d 20 20 | 20 20 20 20 20 20 20 20 |efNum. | |
|00001bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00001bc0| 52 65 71 43 6f 75 6e 74 | 20 28 25 67 65 74 2d 73 |ReqCount| (%get-s|
|00001bd0| 69 67 6e 65 64 2d 6c 6f | 6e 67 20 63 6f 75 6e 74 |igned-lo|ng count|
|00001be0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))). | |
|00001bf0| 20 20 28 70 72 6f 67 31 | 0d 20 20 20 20 20 20 20 | (prog1|. |
|00001c00| 20 20 20 20 20 20 20 20 | 20 28 72 65 71 75 69 72 | | (requir|
|00001c10| 65 2d 74 72 61 70 20 23 | 5f 50 42 41 6c 6c 6f 63 |e-trap #|_PBAlloc|
|00001c20| 61 74 65 53 79 6e 63 20 | 70 62 29 0d 20 20 20 20 |ateSync |pb). |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 25 70 75 | | (%pu|
|00001c40| 74 2d 6c 6f 6e 67 20 63 | 6f 75 6e 74 20 28 70 72 |t-long c|ount (pr|
|00001c50| 65 66 20 70 62 20 3a 50 | 61 72 61 6d 42 6c 6f 63 |ef pb :P|aramBloc|
|00001c60| 6b 52 65 63 2e 69 6f 41 | 63 74 43 6f 75 6e 74 29 |kRec.ioA|ctCount)|
|00001c70| 29 29 29 29 29 0d 0d 28 | 64 65 66 74 72 61 70 20 |)))))..(|deftrap |
|00001c80| 5f 46 53 43 6c 6f 73 65 | 20 28 28 72 65 66 4e 75 |_FSClose| ((refNu|
|00001c90| 6d 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |m :signe|d-intege|
|00001ca0| 72 29 29 0d 20 20 28 3a | 6e 6f 2d 74 72 61 70 20 |r)). (:|no-trap |
|00001cb0| 3a 4f 53 45 72 72 29 0d | 20 20 28 3a 6e 6f 2d 74 |:OSErr).| (:no-t|
|00001cc0| 72 61 70 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |rap (rle|t ((pb :|
|00001cd0| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 0d 20 20 |ParamBlo|ckRec. |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001cf0| 20 20 20 20 20 3a 69 6f | 52 65 66 4e 75 6d 20 72 | :io|RefNum r|
|00001d00| 65 66 4e 75 6d 29 29 0d | 20 20 20 20 20 20 20 20 |efNum)).| |
|00001d10| 20 20 20 20 20 20 28 72 | 65 71 75 69 72 65 2d 74 | (r|equire-t|
|00001d20| 72 61 70 20 23 5f 50 42 | 46 6c 75 73 68 46 69 6c |rap #_PB|FlushFil|
|00001d30| 65 53 79 6e 63 20 70 62 | 29 0d 20 20 20 20 20 20 |eSync pb|). |
|00001d40| 20 20 20 20 20 20 20 20 | 28 72 65 71 75 69 72 65 | |(require|
|00001d50| 2d 74 72 61 70 20 23 5f | 50 42 43 6c 6f 73 65 53 |-trap #_|PBCloseS|
|00001d60| 79 6e 63 20 70 62 29 29 | 29 29 0d 0d 3b 3b 3b 3b |ync pb))|))..;;;;|
|00001d70| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001d80| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001d90| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001da0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001db0| 3b 3b 0d 3b 3b 3b 20 43 | 72 65 61 74 69 6e 67 20 |;;.;;; C|reating |
|00001dc0| 61 6e 64 20 44 65 6c 65 | 74 69 6e 67 20 46 69 6c |and Dele|ting Fil|
|00001dd0| 65 73 20 2d 20 49 4d 20 | 49 56 20 70 70 2e 20 31 |es - IM |IV pp. 1|
|00001de0| 31 32 2d 31 31 33 0d 0d | 28 64 65 66 74 72 61 70 |12-113..|(deftrap|
|00001df0| 20 5f 43 72 65 61 74 65 | 20 28 28 66 69 6c 65 4e | _Create| ((fileN|
|00001e00| 61 6d 65 20 28 3a 73 74 | 72 69 6e 67 20 32 35 35 |ame (:st|ring 255|
|00001e10| 29 29 20 28 76 52 65 66 | 4e 75 6d 20 3a 73 69 67 |)) (vRef|Num :sig|
|00001e20| 6e 65 64 2d 69 6e 74 65 | 67 65 72 29 20 28 63 72 |ned-inte|ger) (cr|
|00001e30| 65 61 74 6f 72 20 3a 6f | 73 74 79 70 65 29 20 28 |eator :o|stype) (|
|00001e40| 66 69 6c 65 54 79 70 65 | 20 3a 6f 73 74 79 70 65 |fileType| :ostype|
|00001e50| 29 29 0d 20 20 28 3a 6e | 6f 2d 74 72 61 70 20 3a |)). (:n|o-trap :|
|00001e60| 4f 53 45 72 72 29 0d 20 | 20 28 3a 6e 6f 2d 74 72 |OSErr). | (:no-tr|
|00001e70| 61 70 20 28 72 6c 65 74 | 20 28 28 66 69 20 3a 46 |ap (rlet| ((fi :F|
|00001e80| 49 6e 66 6f 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Info. | |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 66 64 54 | | :fdT|
|00001ea0| 79 70 65 20 66 69 6c 65 | 54 79 70 65 20 0d 20 20 |ype file|Type . |
|00001eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ec0| 20 20 20 20 20 3a 66 64 | 43 72 65 61 74 6f 72 20 | :fd|Creator |
|00001ed0| 63 72 65 61 74 6f 72 0d | 20 20 20 20 20 20 20 20 |creator.| |
|00001ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00001ef0| 66 64 46 6c 61 67 73 20 | 30 0d 20 20 20 20 20 20 |fdFlags |0. |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f10| 20 3a 66 64 4c 6f 63 61 | 74 69 6f 6e 20 23 40 28 | :fdLoca|tion #@(|
|00001f20| 30 20 30 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |0 0). | |
|00001f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 66 64 46 | | :fdF|
|00001f40| 6c 64 72 20 30 29 0d 20 | 20 20 20 20 20 20 20 20 |ldr 0). | |
|00001f50| 20 20 20 20 20 20 20 20 | 20 20 28 70 62 20 3a 50 | | (pb :P|
|00001f60| 61 72 61 6d 42 6c 6f 63 | 6b 52 65 63 0d 20 20 20 |aramBloc|kRec. |
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f80| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 66 | :ioN|amePtr f|
|00001f90| 69 6c 65 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |ileName.| |
|00001fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00001fb0| 69 6f 56 52 65 66 4e 75 | 6d 20 76 52 65 66 4e 75 |ioVRefNu|m vRefNu|
|00001fc0| 6d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m. | |
|00001fd0| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 46 56 65 72 | | :ioFVer|
|00001fe0| 73 4e 75 6d 20 30 0d 20 | 20 20 20 20 20 20 20 20 |sNum 0. | |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00002000| 6f 46 44 69 72 49 6e 64 | 65 78 20 30 29 29 0d 20 |oFDirInd|ex 0)). |
|00002010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 70 72 | | (pr|
|00002020| 6f 67 31 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |og1. | |
|00002030| 20 20 20 20 28 72 65 71 | 75 69 72 65 2d 74 72 61 | (req|uire-tra|
|00002040| 70 20 23 5f 50 42 43 72 | 65 61 74 65 53 79 6e 63 |p #_PBCr|eateSync|
|00002050| 20 70 62 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | pb). | |
|00002060| 20 20 20 20 20 28 72 65 | 71 75 69 72 65 2d 74 72 | (re|quire-tr|
|00002070| 61 70 20 23 5f 50 42 47 | 65 74 46 49 6e 66 6f 53 |ap #_PBG|etFInfoS|
|00002080| 79 6e 63 20 70 62 20 29 | 0d 20 20 20 20 20 20 20 |ync pb )|. |
|00002090| 20 20 20 20 20 20 20 20 | 20 28 70 73 65 74 20 70 | | (pset p|
|000020a0| 62 20 3a 50 61 72 61 6d | 62 6c 6f 63 6b 52 65 63 |b :Param|blockRec|
|000020b0| 2e 69 6f 46 6c 46 6e 64 | 72 49 6e 66 6f 20 66 69 |.ioFlFnd|rInfo fi|
|000020c0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|000020d0| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|000020e0| 23 5f 50 42 53 65 74 46 | 49 6e 66 6f 53 79 6e 63 |#_PBSetF|InfoSync|
|000020f0| 20 70 62 29 29 29 29 29 | 0d 0d 28 64 65 66 74 72 | pb)))))|..(deftr|
|00002100| 61 70 20 5f 46 53 44 65 | 6c 65 74 65 20 28 28 66 |ap _FSDe|lete ((f|
|00002110| 69 6c 65 4e 61 6d 65 20 | 28 3a 73 74 72 69 6e 67 |ileName |(:string|
|00002120| 20 32 35 35 29 29 20 28 | 76 52 65 66 4e 75 6d 20 | 255)) (|vRefNum |
|00002130| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|00002140| 29 0d 20 20 28 3a 6e 6f | 2d 74 72 61 70 20 3a 4f |). (:no|-trap :O|
|00002150| 53 45 72 72 29 0d 20 20 | 28 3a 6e 6f 2d 74 72 61 |SErr). |(:no-tra|
|00002160| 70 20 28 72 6c 65 74 20 | 28 28 70 62 20 3a 50 61 |p (rlet |((pb :Pa|
|00002170| 72 61 6d 42 6c 6f 63 6b | 52 65 63 0d 20 20 20 20 |ramBlock|Rec. |
|00002180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002190| 20 20 20 3a 69 6f 4e 61 | 6d 65 50 74 72 20 66 69 | :ioNa|mePtr fi|
|000021a0| 6c 65 4e 61 6d 65 0d 20 | 20 20 20 20 20 20 20 20 |leName. | |
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|000021c0| 6f 56 52 65 66 4e 75 6d | 20 76 52 65 66 4e 75 6d |oVRefNum| vRefNum|
|000021d0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000021e0| 20 20 20 20 20 20 20 20 | 3a 69 6f 46 56 65 72 73 | |:ioFVers|
|000021f0| 4e 75 6d 20 30 29 29 0d | 20 20 20 20 20 20 20 20 |Num 0)).| |
|00002200| 20 20 20 20 20 20 28 72 | 65 71 75 69 72 65 2d 74 | (r|equire-t|
|00002210| 72 61 70 20 23 5f 50 42 | 44 65 6c 65 74 65 53 79 |rap #_PB|DeleteSy|
|00002220| 6e 63 20 70 62 29 29 29 | 29 0d 0d 3b 3b 3b 3b 3b |nc pb)))|)..;;;;;|
|00002230| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002240| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002250| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002270| 3b 0d 3b 3b 3b 20 43 68 | 61 6e 67 69 6e 67 20 49 |;.;;; Ch|anging I|
|00002280| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 41 62 6f 75 74 |nformati|on About|
|00002290| 20 46 69 6c 65 73 20 2d | 20 49 4d 20 49 56 20 70 | Files -| IM IV p|
|000022a0| 70 2e 20 31 31 32 2d 31 | 31 33 0d 0d 28 64 65 66 |p. 112-1|13..(def|
|000022b0| 74 72 61 70 20 5f 47 65 | 74 46 49 6e 66 6f 20 28 |trap _Ge|tFInfo (|
|000022c0| 28 66 69 6c 65 4e 61 6d | 65 20 28 3a 73 74 72 69 |(fileNam|e (:stri|
|000022d0| 6e 67 20 32 35 35 29 29 | 20 28 76 52 65 66 4e 75 |ng 255))| (vRefNu|
|000022e0| 6d 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |m :signe|d-intege|
|000022f0| 72 29 20 28 66 6e 64 72 | 49 6e 66 6f 20 28 3a 70 |r) (fndr|Info (:p|
|00002300| 6f 69 6e 74 65 72 20 3a | 66 69 6e 66 6f 29 29 29 |ointer :|finfo)))|
|00002310| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 3a 4f 53 |. (:no-|trap :OS|
|00002320| 45 72 72 29 0d 20 20 28 | 3a 6e 6f 2d 74 72 61 70 |Err). (|:no-trap|
|00002330| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 50 61 72 | (rlet (|(pb :Par|
|00002340| 61 6d 42 6c 6f 63 6b 52 | 65 63 0d 20 20 20 20 20 |amBlockR|ec. |
|00002350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002360| 20 20 3a 69 6f 4e 61 6d | 65 50 74 72 20 66 69 6c | :ioNam|ePtr fil|
|00002370| 65 4e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 20 20 |eName. | |
|00002380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00002390| 56 52 65 66 4e 75 6d 20 | 76 52 65 66 4e 75 6d 0d |VRefNum |vRefNum.|
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023b0| 20 20 20 20 20 20 20 3a | 69 6f 46 56 65 72 73 4e | :|ioFVersN|
|000023c0| 75 6d 20 30 0d 20 20 20 | 20 20 20 20 20 20 20 20 |um 0. | |
|000023d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 46 | | :ioF|
|000023e0| 44 69 72 49 6e 64 65 78 | 20 30 29 29 0d 20 20 20 |DirIndex| 0)). |
|000023f0| 20 20 20 20 20 20 20 20 | 20 20 20 28 70 72 6f 67 | | (prog|
|00002400| 31 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|00002410| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|00002420| 23 5f 50 42 47 65 74 46 | 49 6e 66 6f 53 79 6e 63 |#_PBGetF|InfoSync|
|00002430| 20 70 62 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | pb). | |
|00002440| 20 20 20 20 20 28 72 65 | 71 75 69 72 65 2d 74 72 | (re|quire-tr|
|00002450| 61 70 20 23 5f 42 6c 6f | 63 6b 4d 6f 76 65 20 28 |ap #_Blo|ckMove (|
|00002460| 70 72 65 66 20 70 62 20 | 3a 50 61 72 61 6d 62 6c |pref pb |:Parambl|
|00002470| 6f 63 6b 52 65 63 2e 69 | 6f 46 6c 46 6e 64 72 49 |ockRec.i|oFlFndrI|
|00002480| 6e 66 6f 29 20 66 6e 64 | 72 49 6e 66 6f 20 31 36 |nfo) fnd|rInfo 16|
|00002490| 29 29 29 29 29 0d 0d 28 | 64 65 66 74 72 61 70 20 |)))))..(|deftrap |
|000024a0| 5f 53 65 74 46 49 6e 66 | 6f 20 28 28 66 69 6c 65 |_SetFInf|o ((file|
|000024b0| 4e 61 6d 65 20 28 3a 73 | 74 72 69 6e 67 20 32 35 |Name (:s|tring 25|
|000024c0| 35 29 29 20 28 76 52 65 | 66 4e 75 6d 20 3a 73 69 |5)) (vRe|fNum :si|
|000024d0| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 20 28 66 |gned-int|eger) (f|
|000024e0| 6e 64 72 49 6e 66 6f 20 | 3a 66 69 6e 66 6f 29 29 |ndrInfo |:finfo))|
|000024f0| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 3a 4f 53 |. (:no-|trap :OS|
|00002500| 45 72 72 29 0d 20 20 28 | 3a 6e 6f 2d 74 72 61 70 |Err). (|:no-trap|
|00002510| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 50 61 72 | (rlet (|(pb :Par|
|00002520| 61 6d 42 6c 6f 63 6b 52 | 65 63 0d 20 20 20 20 20 |amBlockR|ec. |
|00002530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002540| 20 20 3a 69 6f 4e 61 6d | 65 50 74 72 20 66 69 6c | :ioNam|ePtr fil|
|00002550| 65 4e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 20 20 |eName. | |
|00002560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00002570| 56 52 65 66 4e 75 6d 20 | 76 52 65 66 4e 75 6d 0d |VRefNum |vRefNum.|
|00002580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002590| 20 20 20 20 20 20 20 3a | 69 6f 46 56 65 72 73 4e | :|ioFVersN|
|000025a0| 75 6d 20 30 0d 20 20 20 | 20 20 20 20 20 20 20 20 |um 0. | |
|000025b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 46 | | :ioF|
|000025c0| 44 69 72 49 6e 64 65 78 | 20 30 29 29 0d 20 20 20 |DirIndex| 0)). |
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 28 70 72 6f 67 | | (prog|
|000025e0| 31 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|000025f0| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|00002600| 23 5f 50 42 47 65 74 46 | 49 6e 66 6f 53 79 6e 63 |#_PBGetF|InfoSync|
|00002610| 20 70 62 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | pb). | |
|00002620| 20 20 20 20 20 28 72 65 | 71 75 69 72 65 2d 74 72 | (re|quire-tr|
|00002630| 61 70 20 23 5f 42 6c 6f | 63 6b 4d 6f 76 65 20 66 |ap #_Blo|ckMove f|
|00002640| 6e 64 72 49 6e 66 6f 20 | 28 70 72 65 66 20 70 62 |ndrInfo |(pref pb|
|00002650| 20 3a 50 61 72 61 6d 62 | 6c 6f 63 6b 52 65 63 2e | :Paramb|lockRec.|
|00002660| 69 6f 46 6c 46 6e 64 72 | 49 6e 66 6f 29 20 31 36 |ioFlFndr|Info) 16|
|00002670| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|00002680| 20 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 | (requi|re-trap |
|00002690| 23 5f 50 42 53 65 74 46 | 49 6e 66 6f 53 79 6e 63 |#_PBSetF|InfoSync|
|000026a0| 20 70 62 29 29 29 29 29 | 0d 0d 28 64 65 66 74 72 | pb)))))|..(deftr|
|000026b0| 61 70 20 5f 53 65 74 46 | 6c 6f 63 6b 20 28 28 66 |ap _SetF|lock ((f|
|000026c0| 69 6c 65 4e 61 6d 65 20 | 28 3a 73 74 72 69 6e 67 |ileName |(:string|
|000026d0| 20 32 35 35 29 29 20 28 | 76 52 65 66 4e 75 6d 20 | 255)) (|vRefNum |
|000026e0| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|000026f0| 29 0d 20 20 28 3a 6e 6f | 2d 74 72 61 70 20 3a 4f |). (:no|-trap :O|
|00002700| 53 45 72 72 29 0d 20 20 | 28 3a 6e 6f 2d 74 72 61 |SErr). |(:no-tra|
|00002710| 70 20 28 72 6c 65 74 20 | 28 28 70 62 20 3a 50 61 |p (rlet |((pb :Pa|
|00002720| 72 61 6d 42 6c 6f 63 6b | 52 65 63 0d 20 20 20 20 |ramBlock|Rec. |
|00002730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002740| 20 20 20 3a 69 6f 4e 61 | 6d 65 50 74 72 20 66 69 | :ioNa|mePtr fi|
|00002750| 6c 65 4e 61 6d 65 0d 20 | 20 20 20 20 20 20 20 20 |leName. | |
|00002760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00002770| 6f 56 52 65 66 4e 75 6d | 20 76 52 65 66 4e 75 6d |oVRefNum| vRefNum|
|00002780| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002790| 20 20 20 20 20 20 20 20 | 3a 69 6f 46 56 65 72 73 | |:ioFVers|
|000027a0| 4e 75 6d 20 30 29 29 0d | 20 20 20 20 20 20 20 20 |Num 0)).| |
|000027b0| 20 20 20 20 20 20 28 72 | 65 71 75 69 72 65 2d 74 | (r|equire-t|
|000027c0| 72 61 70 20 23 5f 50 42 | 53 65 74 46 6c 6f 63 6b |rap #_PB|SetFlock|
|000027d0| 53 79 6e 63 20 70 62 29 | 29 29 29 0d 0d 28 64 65 |Sync pb)|)))..(de|
|000027e0| 66 74 72 61 70 20 5f 52 | 73 74 46 6c 6f 63 6b 20 |ftrap _R|stFlock |
|000027f0| 28 28 66 69 6c 65 4e 61 | 6d 65 20 28 3a 73 74 72 |((fileNa|me (:str|
|00002800| 69 6e 67 20 32 35 35 29 | 29 20 28 76 52 65 66 4e |ing 255)|) (vRefN|
|00002810| 75 6d 20 3a 73 69 67 6e | 65 64 2d 69 6e 74 65 67 |um :sign|ed-integ|
|00002820| 65 72 29 29 0d 20 20 28 | 3a 6e 6f 2d 74 72 61 70 |er)). (|:no-trap|
|00002830| 20 3a 4f 53 45 72 72 29 | 0d 20 20 28 3a 6e 6f 2d | :OSErr)|. (:no-|
|00002840| 74 72 61 70 20 28 72 6c | 65 74 20 28 28 70 62 20 |trap (rl|et ((pb |
|00002850| 3a 50 61 72 61 6d 42 6c | 6f 63 6b 52 65 63 0d 20 |:ParamBl|ockRec. |
|00002860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002870| 20 20 20 20 20 20 3a 69 | 6f 4e 61 6d 65 50 74 72 | :i|oNamePtr|
|00002880| 20 66 69 6c 65 4e 61 6d | 65 0d 20 20 20 20 20 20 | fileNam|e. |
|00002890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028a0| 20 3a 69 6f 56 52 65 66 | 4e 75 6d 20 76 52 65 66 | :ioVRef|Num vRef|
|000028b0| 4e 75 6d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |Num. | |
|000028c0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 46 56 | | :ioFV|
|000028d0| 65 72 73 4e 75 6d 20 30 | 29 29 0d 20 20 20 20 20 |ersNum 0|)). |
|000028e0| 20 20 20 20 20 20 20 20 | 20 28 72 65 71 75 69 72 | | (requir|
|000028f0| 65 2d 74 72 61 70 20 23 | 5f 50 42 52 73 74 46 6c |e-trap #|_PBRstFl|
|00002900| 6f 63 6b 53 79 6e 63 20 | 70 62 29 29 29 29 0d 0d |ockSync |pb))))..|
|00002910| 28 64 65 66 74 72 61 70 | 20 5f 52 65 6e 61 6d 65 |(deftrap| _Rename|
|00002920| 20 28 28 6f 6c 64 4e 61 | 6d 65 20 28 3a 73 74 72 | ((oldNa|me (:str|
|00002930| 69 6e 67 20 32 35 35 29 | 29 20 28 76 52 65 66 4e |ing 255)|) (vRefN|
|00002940| 75 6d 20 3a 73 69 67 6e | 65 64 2d 69 6e 74 65 67 |um :sign|ed-integ|
|00002950| 65 72 29 20 28 6e 65 77 | 4e 61 6d 65 20 28 3a 73 |er) (new|Name (:s|
|00002960| 74 72 69 6e 67 20 32 35 | 35 29 29 29 0d 20 20 28 |tring 25|5))). (|
|00002970| 3a 6e 6f 2d 74 72 61 70 | 20 3a 4f 53 45 72 72 29 |:no-trap| :OSErr)|
|00002980| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 28 72 6c |. (:no-|trap (rl|
|00002990| 65 74 20 28 28 70 62 20 | 3a 50 61 72 61 6d 42 6c |et ((pb |:ParamBl|
|000029a0| 6f 63 6b 52 65 63 0d 20 | 20 20 20 20 20 20 20 20 |ockRec. | |
|000029b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|000029c0| 6f 4e 61 6d 65 50 74 72 | 20 6f 6c 64 4e 61 6d 65 |oNamePtr| oldName|
|000029d0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000029e0| 20 20 20 20 20 20 20 20 | 3a 69 6f 56 52 65 66 4e | |:ioVRefN|
|000029f0| 75 6d 20 76 52 65 66 4e | 75 6d 0d 20 20 20 20 20 |um vRefN|um. |
|00002a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a10| 20 20 3a 69 6f 46 56 65 | 72 73 4e 75 6d 20 30 0d | :ioFVe|rsNum 0.|
|00002a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a30| 20 20 20 20 20 20 20 3a | 69 6f 4d 69 73 63 20 6e | :|ioMisc n|
|00002a40| 65 77 4e 61 6d 65 29 29 | 0d 20 20 20 20 20 20 20 |ewName))|. |
|00002a50| 20 20 20 20 20 20 20 28 | 72 65 71 75 69 72 65 2d | (|require-|
|00002a60| 74 72 61 70 20 23 5f 50 | 42 52 65 6e 61 6d 65 53 |trap #_P|BRenameS|
|00002a70| 79 6e 63 20 70 62 29 29 | 29 29 0d 0d 3b 3b 3b 3b |ync pb))|))..;;;;|
|00002a80| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002a90| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002aa0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002ab0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002ac0| 3b 3b 0d 3b 3b 20 48 69 | 67 68 20 4c 65 76 65 6c |;;.;; Hi|gh Level|
|00002ad0| 20 48 46 53 20 63 61 6c | 6c 73 0d 3b 3b 20 66 72 | HFS cal|ls.;; fr|
|00002ae0| 6f 6d 20 49 4d 20 56 49 | 20 70 70 2e 20 32 35 2e |om IM VI| pp. 25.|
|00002af0| 33 34 2d 32 35 2e 33 37 | 20 28 61 6e 64 20 54 4e |34-25.37| (and TN|
|00002b00| 23 32 31 38 29 0d 0d 28 | 64 65 66 74 72 61 70 20 |#218)..(|deftrap |
|00002b10| 5f 41 6c 6c 6f 63 43 6f | 6e 74 69 67 20 28 28 72 |_AllocCo|ntig ((r|
|00002b20| 65 66 4e 75 6d 20 3a 73 | 69 67 6e 65 64 2d 69 6e |efNum :s|igned-in|
|00002b30| 74 65 67 65 72 29 20 28 | 63 6f 75 6e 74 20 28 3a |teger) (|count (:|
|00002b40| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|00002b50| 6c 6f 6e 67 29 29 29 0d | 20 20 28 3a 6e 6f 2d 74 |long))).| (:no-t|
|00002b60| 72 61 70 20 3a 4f 53 45 | 72 72 29 0d 20 20 28 3a |rap :OSE|rr). (:|
|00002b70| 6e 6f 2d 74 72 61 70 20 | 28 72 6c 65 74 20 28 28 |no-trap |(rlet ((|
|00002b80| 70 62 20 3a 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |pb :Para|mBlockRe|
|00002b90| 63 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |c. | |
|00002ba0| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 52 65 66 4e | | :ioRefN|
|00002bb0| 75 6d 20 72 65 66 4e 75 | 6d 0d 20 20 20 20 20 20 |um refNu|m. |
|00002bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002bd0| 20 3a 69 6f 52 65 71 43 | 6f 75 6e 74 20 28 25 67 | :ioReqC|ount (%g|
|00002be0| 65 74 2d 73 69 67 6e 65 | 64 2d 6c 6f 6e 67 20 63 |et-signe|d-long c|
|00002bf0| 6f 75 6e 74 29 29 29 0d | 20 20 20 20 20 20 20 20 |ount))).| |
|00002c00| 20 20 20 20 20 20 28 70 | 72 6f 67 31 0d 20 20 20 | (p|rog1. |
|00002c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 72 65 | | (re|
|00002c20| 71 75 69 72 65 2d 74 72 | 61 70 20 23 5f 50 42 41 |quire-tr|ap #_PBA|
|00002c30| 6c 6c 6f 63 43 6f 6e 74 | 69 67 53 79 6e 63 20 70 |llocCont|igSync p|
|00002c40| 62 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |b). | |
|00002c50| 20 20 20 28 25 70 75 74 | 2d 6c 6f 6e 67 20 63 6f | (%put|-long co|
|00002c60| 75 6e 74 20 28 70 72 65 | 66 20 70 62 20 3a 50 61 |unt (pre|f pb :Pa|
|00002c70| 72 61 6d 42 6c 6f 63 6b | 52 65 63 2e 69 6f 41 63 |ramBlock|Rec.ioAc|
|00002c80| 74 43 6f 75 6e 74 29 29 | 29 29 29 29 0d 0d 28 64 |tCount))|))))..(d|
|00002c90| 65 66 74 72 61 70 20 5f | 44 69 72 43 72 65 61 74 |eftrap _|DirCreat|
|00002ca0| 65 20 28 28 76 52 65 66 | 4e 75 6d 20 3a 73 69 67 |e ((vRef|Num :sig|
|00002cb0| 6e 65 64 2d 69 6e 74 65 | 67 65 72 29 20 28 70 61 |ned-inte|ger) (pa|
|00002cc0| 72 65 6e 74 44 69 72 49 | 44 20 3a 73 69 67 6e 65 |rentDirI|D :signe|
|00002cd0| 64 2d 6c 6f 6e 67 29 20 | 28 64 69 72 65 63 74 6f |d-long) |(directo|
|00002ce0| 72 79 4e 61 6d 65 20 28 | 3a 73 74 72 69 6e 67 20 |ryName (|:string |
|00002cf0| 32 35 35 29 29 20 28 63 | 72 65 61 74 65 64 44 69 |255)) (c|reatedDi|
|00002d00| 72 49 44 20 28 3a 70 6f | 69 6e 74 65 72 20 3a 73 |rID (:po|inter :s|
|00002d10| 69 67 6e 65 64 2d 6c 6f | 6e 67 29 29 29 0d 20 20 |igned-lo|ng))). |
|00002d20| 28 3a 6e 6f 2d 74 72 61 | 70 20 3a 4f 53 45 72 72 |(:no-tra|p :OSErr|
|00002d30| 29 0d 20 20 28 3a 6e 6f | 2d 74 72 61 70 20 28 72 |). (:no|-trap (r|
|00002d40| 6c 65 74 20 28 28 70 62 | 20 3a 48 50 61 72 61 6d |let ((pb| :HParam|
|00002d50| 42 6c 6f 63 6b 52 65 63 | 20 0d 20 20 20 20 20 20 |BlockRec| . |
|00002d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d70| 20 3a 69 6f 4e 61 6d 65 | 50 74 72 20 64 69 72 65 | :ioName|Ptr dire|
|00002d80| 63 74 6f 72 79 4e 61 6d | 65 0d 20 20 20 20 20 20 |ctoryNam|e. |
|00002d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002da0| 20 3a 69 6f 56 52 65 66 | 4e 75 6d 20 76 52 65 66 | :ioVRef|Num vRef|
|00002db0| 4e 75 6d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |Num. | |
|00002dc0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 44 69 | | :ioDi|
|00002dd0| 72 49 44 20 70 61 72 65 | 6e 74 44 69 72 49 44 29 |rID pare|ntDirID)|
|00002de0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|00002df0| 28 70 72 6f 67 31 0d 20 | 20 20 20 20 20 20 20 20 |(prog1. | |
|00002e00| 20 20 20 20 20 20 20 28 | 72 65 71 75 69 72 65 2d | (|require-|
|00002e10| 74 72 61 70 20 23 5f 50 | 42 44 69 72 43 72 65 61 |trap #_P|BDirCrea|
|00002e20| 74 65 53 79 6e 63 20 70 | 62 29 0d 20 20 20 20 20 |teSync p|b). |
|00002e30| 20 20 20 20 20 20 20 20 | 20 20 20 28 25 70 75 74 | | (%put|
|00002e40| 2d 6c 6f 6e 67 20 63 72 | 65 61 74 65 64 44 69 72 |-long cr|eatedDir|
|00002e50| 49 44 20 28 70 72 65 66 | 20 70 62 20 3a 48 50 61 |ID (pref| pb :HPa|
|00002e60| 72 61 6d 42 6c 6f 63 6b | 52 65 63 2e 69 6f 44 69 |ramBlock|Rec.ioDi|
|00002e70| 72 49 44 29 29 29 29 29 | 29 0d 0d 28 64 65 66 74 |rID)))))|)..(deft|
|00002e80| 72 61 70 20 5f 43 61 74 | 4d 6f 76 65 20 28 28 76 |rap _Cat|Move ((v|
|00002e90| 52 65 66 4e 75 6d 20 3a | 73 69 67 6e 65 64 2d 69 |RefNum :|signed-i|
|00002ea0| 6e 74 65 67 65 72 29 20 | 28 64 69 72 49 44 20 3a |nteger) |(dirID :|
|00002eb0| 73 69 67 6e 65 64 2d 6c | 6f 6e 67 29 20 28 6f 6c |signed-l|ong) (ol|
|00002ec0| 64 4e 61 6d 65 20 28 3a | 73 74 72 69 6e 67 20 32 |dName (:|string 2|
|00002ed0| 35 35 29 29 20 28 6e 65 | 77 44 69 72 49 44 20 3a |55)) (ne|wDirID :|
|00002ee0| 73 69 67 6e 65 64 2d 6c | 6f 6e 67 29 20 28 6e 65 |signed-l|ong) (ne|
|00002ef0| 77 4e 61 6d 65 20 28 3a | 73 74 72 69 6e 67 20 32 |wName (:|string 2|
|00002f00| 35 35 29 29 29 0d 20 20 | 28 3a 6e 6f 2d 74 72 61 |55))). |(:no-tra|
|00002f10| 70 20 3a 4f 53 45 72 72 | 29 0d 20 20 28 3a 6e 6f |p :OSErr|). (:no|
|00002f20| 2d 74 72 61 70 20 28 72 | 6c 65 74 20 28 28 70 62 |-trap (r|let ((pb|
|00002f30| 20 3a 43 4d 6f 76 65 50 | 42 50 74 72 0d 20 20 20 | :CMoveP|BPtr. |
|00002f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f50| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 6f | :ioN|amePtr o|
|00002f60| 6c 64 4e 61 6d 65 0d 20 | 20 20 20 20 20 20 20 20 |ldName. | |
|00002f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00002f80| 6f 56 52 65 66 4e 75 6d | 20 76 52 65 66 4e 75 6d |oVRefNum| vRefNum|
|00002f90| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002fa0| 20 20 20 20 20 20 20 20 | 3a 69 6f 4e 65 77 4e 61 | |:ioNewNa|
|00002fb0| 6d 65 20 6e 65 77 4e 61 | 6d 65 0d 20 20 20 20 20 |me newNa|me. |
|00002fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002fd0| 20 20 3a 69 6f 4e 65 77 | 44 69 72 49 64 20 6e 65 | :ioNew|DirId ne|
|00002fe0| 77 44 69 72 49 44 0d 20 | 20 20 20 20 20 20 20 20 |wDirID. | |
|00002ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00003000| 6f 44 69 72 49 44 20 64 | 69 72 49 44 29 29 0d 20 |oDirID d|irID)). |
|00003010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 72 65 | | (re|
|00003020| 71 75 69 72 65 2d 74 72 | 61 70 20 23 5f 50 42 43 |quire-tr|ap #_PBC|
|00003030| 61 74 4d 6f 76 65 53 79 | 6e 63 20 70 62 29 29 29 |atMoveSy|nc pb)))|
|00003040| 29 0d 0d 28 64 65 66 74 | 72 61 70 20 5f 4f 70 65 |)..(deft|rap _Ope|
|00003050| 6e 57 44 20 28 28 76 52 | 65 66 4e 75 6d 20 3a 73 |nWD ((vR|efNum :s|
|00003060| 69 67 6e 65 64 2d 69 6e | 74 65 67 65 72 29 20 28 |igned-in|teger) (|
|00003070| 64 69 72 49 44 20 3a 73 | 69 67 6e 65 64 2d 6c 6f |dirID :s|igned-lo|
|00003080| 6e 67 29 20 28 70 72 6f | 63 49 44 20 3a 73 69 67 |ng) (pro|cID :sig|
|00003090| 6e 65 64 2d 6c 6f 6e 67 | 29 20 28 77 64 52 65 66 |ned-long|) (wdRef|
|000030a0| 4e 75 6d 20 28 3a 70 6f | 69 6e 74 65 72 20 3a 73 |Num (:po|inter :s|
|000030b0| 69 67 6e 65 64 2d 69 6e | 74 65 67 65 72 29 29 29 |igned-in|teger)))|
|000030c0| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 3a 4f 53 |. (:no-|trap :OS|
|000030d0| 45 72 72 29 0d 20 20 28 | 3a 6e 6f 2d 74 72 61 70 |Err). (|:no-trap|
|000030e0| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 57 44 50 | (rlet (|(pb :WDP|
|000030f0| 42 52 65 63 0d 20 20 20 | 20 20 20 20 20 20 20 20 |BRec. | |
|00003100| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 4e | | :ioN|
|00003110| 61 6d 65 50 74 72 20 28 | 25 6e 75 6c 6c 2d 70 74 |amePtr (|%null-pt|
|00003120| 72 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r). | |
|00003130| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 56 52 65 | | :ioVRe|
|00003140| 66 4e 75 6d 20 76 52 65 | 66 4e 75 6d 0d 20 20 20 |fNum vRe|fNum. |
|00003150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003160| 20 20 20 20 3a 69 6f 57 | 44 50 72 6f 63 49 44 20 | :ioW|DProcID |
|00003170| 70 72 6f 63 49 44 0d 20 | 20 20 20 20 20 20 20 20 |procID. | |
|00003180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00003190| 6f 57 44 44 69 72 49 44 | 20 64 69 72 49 44 29 29 |oWDDirID| dirID))|
|000031a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |. | (|
|000031b0| 70 72 6f 67 31 0d 20 20 | 20 20 20 20 20 20 20 20 |prog1. | |
|000031c0| 20 20 20 20 20 20 28 72 | 65 71 75 69 72 65 2d 74 | (r|equire-t|
|000031d0| 72 61 70 20 23 5f 50 42 | 4f 70 65 6e 57 44 53 79 |rap #_PB|OpenWDSy|
|000031e0| 6e 63 20 70 62 29 0d 20 | 20 20 20 20 20 20 20 20 |nc pb). | |
|000031f0| 20 20 20 20 20 20 20 28 | 25 70 75 74 2d 77 6f 72 | (|%put-wor|
|00003200| 64 20 77 64 52 65 66 4e | 75 6d 20 28 70 72 65 66 |d wdRefN|um (pref|
|00003210| 20 70 62 20 3a 57 44 50 | 42 52 65 63 2e 69 6f 56 | pb :WDP|BRec.ioV|
|00003220| 52 65 66 4e 75 6d 29 29 | 29 29 29 29 0d 0d 28 64 |RefNum))|))))..(d|
|00003230| 65 66 74 72 61 70 20 5f | 43 6c 6f 73 65 57 44 20 |eftrap _|CloseWD |
|00003240| 28 28 77 64 52 65 66 4e | 75 6d 20 3a 73 69 67 6e |((wdRefN|um :sign|
|00003250| 65 64 2d 69 6e 74 65 67 | 65 72 29 29 0d 20 20 28 |ed-integ|er)). (|
|00003260| 3a 6e 6f 2d 74 72 61 70 | 20 3a 4f 53 45 72 72 29 |:no-trap| :OSErr)|
|00003270| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 28 72 6c |. (:no-|trap (rl|
|00003280| 65 74 20 28 28 70 62 20 | 3a 57 44 50 42 52 65 63 |et ((pb |:WDPBRec|
|00003290| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000032a0| 20 20 20 20 20 20 20 20 | 3a 69 6f 56 52 65 66 4e | |:ioVRefN|
|000032b0| 75 6d 20 77 64 52 65 66 | 4e 75 6d 29 29 0d 20 20 |um wdRef|Num)). |
|000032c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 72 65 71 | | (req|
|000032d0| 75 69 72 65 2d 74 72 61 | 70 20 23 5f 50 42 43 6c |uire-tra|p #_PBCl|
|000032e0| 6f 73 65 57 44 53 79 6e | 63 20 70 62 29 29 29 29 |oseWDSyn|c pb))))|
|000032f0| 0d 0d 28 64 65 66 74 72 | 61 70 20 5f 47 65 74 57 |..(deftr|ap _GetW|
|00003300| 44 49 6e 66 6f 20 28 28 | 77 64 52 65 66 4e 75 6d |DInfo ((|wdRefNum|
|00003310| 20 3a 73 69 67 6e 65 64 | 2d 69 6e 74 65 67 65 72 | :signed|-integer|
|00003320| 29 20 28 76 52 65 66 4e | 75 6d 20 28 3a 70 6f 69 |) (vRefN|um (:poi|
|00003330| 6e 74 65 72 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |nter :si|gned-int|
|00003340| 65 67 65 72 29 29 20 28 | 64 69 72 49 44 20 28 3a |eger)) (|dirID (:|
|00003350| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|00003360| 6c 6f 6e 67 29 29 20 28 | 70 72 6f 63 49 44 20 28 |long)) (|procID (|
|00003370| 3a 70 6f 69 6e 74 65 72 | 20 3a 73 69 67 6e 65 64 |:pointer| :signed|
|00003380| 2d 6c 6f 6e 67 29 29 29 | 0d 20 20 28 3a 6e 6f 2d |-long)))|. (:no-|
|00003390| 74 72 61 70 20 3a 4f 53 | 45 72 72 29 0d 20 20 28 |trap :OS|Err). (|
|000033a0| 3a 6e 6f 2d 74 72 61 70 | 20 28 72 6c 65 74 20 28 |:no-trap| (rlet (|
|000033b0| 28 70 62 20 3a 57 44 50 | 42 52 65 63 0d 20 20 20 |(pb :WDP|BRec. |
|000033c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000033d0| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 28 | :ioN|amePtr (|
|000033e0| 25 6e 75 6c 6c 2d 70 74 | 72 29 0d 20 20 20 20 20 |%null-pt|r). |
|000033f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003400| 20 20 3a 69 6f 56 52 65 | 66 4e 75 6d 20 77 64 52 | :ioVRe|fNum wdR|
|00003410| 65 66 4e 75 6d 0d 20 20 | 20 20 20 20 20 20 20 20 |efNum. | |
|00003420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00003430| 57 44 49 6e 64 65 78 20 | 30 0d 20 20 20 20 20 20 |WDIndex |0. |
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003450| 20 3a 69 6f 57 44 50 72 | 6f 63 49 44 20 30 0d 20 | :ioWDPr|ocID 0. |
|00003460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003470| 20 20 20 20 20 20 3a 69 | 6f 57 44 56 52 65 66 4e | :i|oWDVRefN|
|00003480| 75 6d 20 30 29 29 0d 20 | 20 20 20 20 20 20 20 20 |um 0)). | |
|00003490| 20 20 20 20 20 28 70 72 | 6f 67 31 0d 20 20 20 20 | (pr|og1. |
|000034a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 72 65 71 | | (req|
|000034b0| 75 69 72 65 2d 74 72 61 | 70 20 23 5f 50 42 47 65 |uire-tra|p #_PBGe|
|000034c0| 74 57 44 49 6e 66 6f 53 | 79 6e 63 20 70 62 29 0d |tWDInfoS|ync pb).|
|000034d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000034e0| 28 25 70 75 74 2d 77 6f | 72 64 20 76 52 65 66 4e |(%put-wo|rd vRefN|
|000034f0| 75 6d 20 28 70 72 65 66 | 20 70 62 20 3a 57 44 50 |um (pref| pb :WDP|
|00003500| 42 52 65 63 2e 69 6f 57 | 44 56 52 65 66 4e 75 6d |BRec.ioW|DVRefNum|
|00003510| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)). | |
|00003520| 20 20 20 28 25 70 75 74 | 2d 6c 6f 6e 67 20 64 69 | (%put|-long di|
|00003530| 72 49 44 20 28 70 72 65 | 66 20 70 62 20 3a 57 44 |rID (pre|f pb :WD|
|00003540| 50 42 52 65 63 2e 69 6f | 57 44 44 69 72 49 44 29 |PBRec.io|WDDirID)|
|00003550| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|00003560| 20 20 28 25 70 75 74 2d | 6c 6f 6e 67 20 70 72 6f | (%put-|long pro|
|00003570| 63 49 44 20 28 70 72 65 | 66 20 70 62 20 3a 57 44 |cID (pre|f pb :WD|
|00003580| 50 42 52 65 63 2e 69 6f | 57 44 50 72 6f 63 49 44 |PBRec.io|WDProcID|
|00003590| 29 29 29 29 29 29 0d 0d | 0d 28 64 65 66 74 72 61 |))))))..|.(deftra|
|000035a0| 70 20 5f 48 43 72 65 61 | 74 65 20 28 28 76 52 65 |p _HCrea|te ((vRe|
|000035b0| 66 4e 75 6d 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |fNum :si|gned-int|
|000035c0| 65 67 65 72 29 20 28 64 | 69 72 49 44 20 3a 73 69 |eger) (d|irID :si|
|000035d0| 67 6e 65 64 2d 6c 6f 6e | 67 29 20 28 66 69 6c 65 |gned-lon|g) (file|
|000035e0| 4e 61 6d 65 20 28 3a 73 | 74 72 69 6e 67 20 32 35 |Name (:s|tring 25|
|000035f0| 35 29 29 20 28 63 72 65 | 61 74 6f 72 20 3a 6f 73 |5)) (cre|ator :os|
|00003600| 74 79 70 65 29 20 28 66 | 69 6c 65 54 79 70 65 20 |type) (f|ileType |
|00003610| 3a 6f 73 74 79 70 65 29 | 29 0d 20 20 28 3a 6e 6f |:ostype)|). (:no|
|00003620| 2d 74 72 61 70 20 3a 4f | 53 45 72 72 29 0d 20 20 |-trap :O|SErr). |
|00003630| 28 3a 6e 6f 2d 74 72 61 | 70 20 28 72 6c 65 74 20 |(:no-tra|p (rlet |
|00003640| 28 28 66 69 20 3a 46 49 | 6e 66 6f 0d 20 20 20 20 |((fi :FI|nfo. |
|00003650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003660| 20 20 20 3a 66 64 54 79 | 70 65 20 66 69 6c 65 54 | :fdTy|pe fileT|
|00003670| 79 70 65 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ype . | |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 66 64 43 | | :fdC|
|00003690| 72 65 61 74 6f 72 20 63 | 72 65 61 74 6f 72 0d 20 |reator c|reator. |
|000036a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000036b0| 20 20 20 20 20 20 3a 66 | 64 46 6c 61 67 73 20 30 | :f|dFlags 0|
|000036c0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000036d0| 20 20 20 20 20 20 20 20 | 3a 66 64 4c 6f 63 61 74 | |:fdLocat|
|000036e0| 69 6f 6e 20 30 0d 20 20 | 20 20 20 20 20 20 20 20 |ion 0. | |
|000036f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 66 64 | | :fd|
|00003700| 46 6c 64 72 20 30 29 0d | 20 20 20 20 20 20 20 20 |Fldr 0).| |
|00003710| 20 20 20 20 20 20 20 20 | 20 20 20 28 70 62 20 3a | | (pb :|
|00003720| 48 50 61 72 61 6d 42 6c | 6f 63 6b 52 65 63 0d 20 |HParamBl|ockRec. |
|00003730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003740| 20 20 20 20 20 20 3a 69 | 6f 4e 61 6d 65 50 74 72 | :i|oNamePtr|
|00003750| 20 66 69 6c 65 4e 61 6d | 65 0d 20 20 20 20 20 20 | fileNam|e. |
|00003760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003770| 20 3a 69 6f 56 52 65 66 | 4e 75 6d 20 76 52 65 66 | :ioVRef|Num vRef|
|00003780| 4e 75 6d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |Num. | |
|00003790| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 46 56 | | :ioFV|
|000037a0| 65 72 73 4e 75 6d 20 30 | 0d 20 20 20 20 20 20 20 |ersNum 0|. |
|000037b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000037c0| 3a 69 6f 46 44 69 72 49 | 6e 64 65 78 20 30 0d 20 |:ioFDirI|ndex 0. |
|000037d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000037e0| 20 20 20 20 20 20 3a 69 | 6f 44 69 72 49 44 20 64 | :i|oDirID d|
|000037f0| 69 72 49 44 29 29 0d 20 | 20 20 20 20 20 20 20 20 |irID)). | |
|00003800| 20 20 20 20 20 28 70 72 | 6f 67 31 0d 20 20 20 20 | (pr|og1. |
|00003810| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 72 65 71 | | (req|
|00003820| 75 69 72 65 2d 74 72 61 | 70 20 23 5f 50 42 48 43 |uire-tra|p #_PBHC|
|00003830| 72 65 61 74 65 53 79 6e | 63 20 70 62 29 0d 20 20 |reateSyn|c pb). |
|00003840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 72 | | (r|
|00003850| 65 71 75 69 72 65 2d 74 | 72 61 70 20 23 5f 50 42 |equire-t|rap #_PB|
|00003860| 48 47 65 74 46 49 6e 66 | 6f 53 79 6e 63 20 70 62 |HGetFInf|oSync pb|
|00003870| 20 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ). | |
|00003880| 20 20 20 28 70 73 65 74 | 20 70 62 20 3a 48 50 61 | (pset| pb :HPa|
|00003890| 72 61 6d 62 6c 6f 63 6b | 52 65 63 2e 69 6f 46 6c |ramblock|Rec.ioFl|
|000038a0| 46 6e 64 72 49 6e 66 6f | 20 66 69 29 0d 20 20 20 |FndrInfo| fi). |
|000038b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 72 65 | | (re|
|000038c0| 71 75 69 72 65 2d 74 72 | 61 70 20 23 5f 50 42 48 |quire-tr|ap #_PBH|
|000038d0| 53 65 74 46 49 6e 66 6f | 53 79 6e 63 20 70 62 29 |SetFInfo|Sync pb)|
|000038e0| 29 29 29 29 0d 0d 28 64 | 65 66 74 72 61 70 20 5f |))))..(d|eftrap _|
|000038f0| 48 4f 70 65 6e 20 28 28 | 76 52 65 66 4e 75 6d 20 |HOpen ((|vRefNum |
|00003900| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|00003910| 20 28 64 69 72 49 44 20 | 3a 73 69 67 6e 65 64 2d | (dirID |:signed-|
|00003920| 6c 6f 6e 67 29 20 28 66 | 69 6c 65 4e 61 6d 65 20 |long) (f|ileName |
|00003930| 28 3a 73 74 72 69 6e 67 | 20 32 35 35 29 29 20 28 |(:string| 255)) (|
|00003940| 70 65 72 6d 69 73 73 69 | 6f 6e 20 3a 73 69 67 6e |permissi|on :sign|
|00003950| 65 64 2d 62 79 74 65 29 | 20 28 72 65 66 4e 75 6d |ed-byte)| (refNum|
|00003960| 20 28 3a 70 6f 69 6e 74 | 65 72 20 3a 73 69 67 6e | (:point|er :sign|
|00003970| 65 64 2d 69 6e 74 65 67 | 65 72 29 29 29 0d 20 20 |ed-integ|er))). |
|00003980| 28 3a 6e 6f 2d 74 72 61 | 70 20 3a 4f 53 45 72 72 |(:no-tra|p :OSErr|
|00003990| 29 0d 20 20 28 3a 6e 6f | 2d 74 72 61 70 20 28 72 |). (:no|-trap (r|
|000039a0| 6c 65 74 20 28 28 70 62 | 20 3a 48 50 61 72 61 6d |let ((pb| :HParam|
|000039b0| 42 6c 6f 63 6b 52 65 63 | 20 0d 20 20 20 20 20 20 |BlockRec| . |
|000039c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000039d0| 20 3a 69 6f 4e 61 6d 65 | 50 74 72 20 66 69 6c 65 | :ioName|Ptr file|
|000039e0| 4e 61 6d 65 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Name. | |
|000039f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 56 | | :ioV|
|00003a00| 52 65 66 4e 75 6d 20 76 | 52 65 66 4e 75 6d 0d 20 |RefNum v|RefNum. |
|00003a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a20| 20 20 20 20 20 20 3a 69 | 6f 50 65 72 6d 73 73 6e | :i|oPermssn|
|00003a30| 20 70 65 72 6d 69 73 73 | 69 6f 6e 0d 20 20 20 20 | permiss|ion. |
|00003a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a50| 20 20 20 3a 69 6f 4d 69 | 73 63 20 28 25 6e 75 6c | :ioMi|sc (%nul|
|00003a60| 6c 2d 70 74 72 29 0d 20 | 20 20 20 20 20 20 20 20 |l-ptr). | |
|00003a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00003a80| 6f 44 69 72 49 44 20 64 | 69 72 49 44 29 29 0d 20 |oDirID d|irID)). |
|00003a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 70 72 | | (pr|
|00003aa0| 6f 67 31 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |og1. | |
|00003ab0| 20 20 20 20 28 72 65 71 | 75 69 72 65 2d 74 72 61 | (req|uire-tra|
|00003ac0| 70 20 23 5f 50 42 48 4f | 70 65 6e 53 79 6e 63 20 |p #_PBHO|penSync |
|00003ad0| 70 62 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |pb). | |
|00003ae0| 20 20 20 20 28 25 70 75 | 74 2d 77 6f 72 64 20 72 | (%pu|t-word r|
|00003af0| 65 66 4e 75 6d 20 28 70 | 72 65 66 20 70 62 20 3a |efNum (p|ref pb :|
|00003b00| 48 50 61 72 61 6d 42 6c | 6f 63 6b 52 65 63 2e 69 |HParamBl|ockRec.i|
|00003b10| 6f 52 65 66 4e 75 6d 29 | 29 29 29 29 29 0d 0d 28 |oRefNum)|)))))..(|
|00003b20| 64 65 66 74 72 61 70 20 | 5f 48 4f 70 65 6e 52 46 |deftrap |_HOpenRF|
|00003b30| 20 28 28 76 52 65 66 4e | 75 6d 20 3a 73 69 67 6e | ((vRefN|um :sign|
|00003b40| 65 64 2d 69 6e 74 65 67 | 65 72 29 20 28 64 69 72 |ed-integ|er) (dir|
|00003b50| 49 44 20 3a 73 69 67 6e | 65 64 2d 6c 6f 6e 67 29 |ID :sign|ed-long)|
|00003b60| 20 28 66 69 6c 65 4e 61 | 6d 65 20 28 3a 73 74 72 | (fileNa|me (:str|
|00003b70| 69 6e 67 20 32 35 35 29 | 29 20 28 70 65 72 6d 69 |ing 255)|) (permi|
|00003b80| 73 73 69 6f 6e 20 3a 73 | 69 67 6e 65 64 2d 62 79 |ssion :s|igned-by|
|00003b90| 74 65 29 20 28 72 65 66 | 4e 75 6d 20 28 3a 70 6f |te) (ref|Num (:po|
|00003ba0| 69 6e 74 65 72 20 3a 73 | 69 67 6e 65 64 2d 69 6e |inter :s|igned-in|
|00003bb0| 74 65 67 65 72 29 29 29 | 0d 20 20 28 3a 6e 6f 2d |teger)))|. (:no-|
|00003bc0| 74 72 61 70 20 3a 4f 53 | 45 72 72 29 0d 20 20 28 |trap :OS|Err). (|
|00003bd0| 3a 6e 6f 2d 74 72 61 70 | 20 28 72 6c 65 74 20 28 |:no-trap| (rlet (|
|00003be0| 28 70 62 20 3a 48 50 61 | 72 61 6d 42 6c 6f 63 6b |(pb :HPa|ramBlock|
|00003bf0| 52 65 63 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Rec . | |
|00003c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 4e | | :ioN|
|00003c10| 61 6d 65 50 74 72 20 66 | 69 6c 65 4e 61 6d 65 0d |amePtr f|ileName.|
|00003c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c30| 20 20 20 20 20 20 20 3a | 69 6f 56 52 65 66 4e 75 | :|ioVRefNu|
|00003c40| 6d 20 76 52 65 66 4e 75 | 6d 0d 20 20 20 20 20 20 |m vRefNu|m. |
|00003c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c60| 20 3a 69 6f 50 65 72 6d | 73 73 6e 20 70 65 72 6d | :ioPerm|ssn perm|
|00003c70| 69 73 73 69 6f 6e 0d 20 | 20 20 20 20 20 20 20 20 |ission. | |
|00003c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|00003c90| 6f 4d 69 73 63 20 28 25 | 6e 75 6c 6c 2d 70 74 72 |oMisc (%|null-ptr|
|00003ca0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|00003cb0| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 44 69 72 49 | | :ioDirI|
|00003cc0| 44 20 64 69 72 49 44 29 | 29 0d 20 20 20 20 20 20 |D dirID)|). |
|00003cd0| 20 20 20 20 20 20 20 20 | 28 70 72 6f 67 31 0d 20 | |(prog1. |
|00003ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00003cf0| 72 65 71 75 69 72 65 2d | 74 72 61 70 20 23 5f 50 |require-|trap #_P|
|00003d00| 42 48 4f 70 65 6e 52 46 | 53 79 6e 63 20 70 62 29 |BHOpenRF|Sync pb)|
|00003d10| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003d20| 20 28 25 70 75 74 2d 77 | 6f 72 64 20 72 65 66 4e | (%put-w|ord refN|
|00003d30| 75 6d 20 28 70 72 65 66 | 20 70 62 20 3a 48 50 61 |um (pref| pb :HPa|
|00003d40| 72 61 6d 42 6c 6f 63 6b | 52 65 63 2e 69 6f 52 65 |ramBlock|Rec.ioRe|
|00003d50| 66 4e 75 6d 29 29 29 29 | 29 29 0d 0d 28 64 65 66 |fNum))))|))..(def|
|00003d60| 74 72 61 70 20 5f 48 44 | 65 6c 65 74 65 20 28 28 |trap _HD|elete ((|
|00003d70| 76 52 65 66 4e 75 6d 20 | 3a 73 69 67 6e 65 64 2d |vRefNum |:signed-|
|00003d80| 69 6e 74 65 67 65 72 29 | 20 28 64 69 72 49 44 20 |integer)| (dirID |
|00003d90| 3a 73 69 67 6e 65 64 2d | 6c 6f 6e 67 29 20 28 66 |:signed-|long) (f|
|00003da0| 69 6c 65 4e 61 6d 65 20 | 28 3a 73 74 72 69 6e 67 |ileName |(:string|
|00003db0| 20 32 35 35 29 29 29 0d | 20 20 28 3a 6e 6f 2d 74 | 255))).| (:no-t|
|00003dc0| 72 61 70 20 3a 4f 53 45 | 72 72 29 0d 20 20 28 3a |rap :OSE|rr). (:|
|00003dd0| 6e 6f 2d 74 72 61 70 20 | 28 72 6c 65 74 20 28 28 |no-trap |(rlet ((|
|00003de0| 70 62 20 3a 48 50 61 72 | 61 6d 42 6c 6f 63 6b 52 |pb :HPar|amBlockR|
|00003df0| 65 63 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec . | |
|00003e00| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4e 61 | | :ioNa|
|00003e10| 6d 65 50 74 72 20 66 69 | 6c 65 4e 61 6d 65 0d 20 |mePtr fi|leName. |
|00003e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e30| 20 20 20 20 20 20 3a 69 | 6f 56 52 65 66 4e 75 6d | :i|oVRefNum|
|00003e40| 20 76 52 65 66 4e 75 6d | 0d 20 20 20 20 20 20 20 | vRefNum|. |
|00003e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e60| 3a 69 6f 44 69 72 49 44 | 20 64 69 72 49 44 29 29 |:ioDirID| dirID))|
|00003e70| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |. | (|
|00003e80| 72 65 71 75 69 72 65 2d | 74 72 61 70 20 23 5f 50 |require-|trap #_P|
|00003e90| 42 48 44 65 6c 65 74 65 | 53 79 6e 63 20 70 62 29 |BHDelete|Sync pb)|
|00003ea0| 29 29 29 0d 0d 28 64 65 | 66 74 72 61 70 20 5f 48 |)))..(de|ftrap _H|
|00003eb0| 53 65 74 46 6c 6f 63 6b | 20 28 28 76 52 65 66 4e |SetFlock| ((vRefN|
|00003ec0| 75 6d 20 3a 73 69 67 6e | 65 64 2d 69 6e 74 65 67 |um :sign|ed-integ|
|00003ed0| 65 72 29 20 28 64 69 72 | 49 44 20 3a 73 69 67 6e |er) (dir|ID :sign|
|00003ee0| 65 64 2d 6c 6f 6e 67 29 | 20 28 66 69 6c 65 4e 61 |ed-long)| (fileNa|
|00003ef0| 6d 65 20 28 3a 73 74 72 | 69 6e 67 20 32 35 35 29 |me (:str|ing 255)|
|00003f00| 29 29 0d 20 20 28 3a 6e | 6f 2d 74 72 61 70 20 3a |)). (:n|o-trap :|
|00003f10| 4f 53 45 72 72 29 0d 20 | 20 28 3a 6e 6f 2d 74 72 |OSErr). | (:no-tr|
|00003f20| 61 70 20 28 72 6c 65 74 | 20 28 28 70 62 20 3a 48 |ap (rlet| ((pb :H|
|00003f30| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 0d 20 20 |ParamBlo|ckRec. |
|00003f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003f50| 20 20 20 20 20 3a 69 6f | 4e 61 6d 65 50 74 72 20 | :io|NamePtr |
|00003f60| 66 69 6c 65 4e 61 6d 65 | 0d 20 20 20 20 20 20 20 |fileName|. |
|00003f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003f80| 3a 69 6f 56 52 65 66 4e | 75 6d 20 76 52 65 66 4e |:ioVRefN|um vRefN|
|00003f90| 75 6d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |um. | |
|00003fa0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 44 69 72 | | :ioDir|
|00003fb0| 49 44 20 64 69 72 49 44 | 29 29 0d 20 20 20 20 20 |ID dirID|)). |
|00003fc0| 20 20 20 20 20 20 20 20 | 20 28 72 65 71 75 69 72 | | (requir|
|00003fd0| 65 2d 74 72 61 70 20 23 | 5f 50 42 48 53 65 74 46 |e-trap #|_PBHSetF|
|00003fe0| 6c 6f 63 6b 53 79 6e 63 | 20 70 62 29 29 29 29 0d |lockSync| pb)))).|
|00003ff0| 0d 28 64 65 66 74 72 61 | 70 20 5f 48 52 73 74 46 |.(deftra|p _HRstF|
|00004000| 6c 6f 63 6b 20 28 28 76 | 52 65 66 4e 75 6d 20 3a |lock ((v|RefNum :|
|00004010| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 29 20 |signed-i|nteger) |
|00004020| 28 64 69 72 49 44 20 3a | 73 69 67 6e 65 64 2d 6c |(dirID :|signed-l|
|00004030| 6f 6e 67 29 20 28 66 69 | 6c 65 4e 61 6d 65 20 28 |ong) (fi|leName (|
|00004040| 3a 73 74 72 69 6e 67 20 | 32 35 35 29 29 29 0d 20 |:string |255))). |
|00004050| 20 28 3a 6e 6f 2d 74 72 | 61 70 20 3a 4f 53 45 72 | (:no-tr|ap :OSEr|
|00004060| 72 29 0d 20 20 28 3a 6e | 6f 2d 74 72 61 70 20 28 |r). (:n|o-trap (|
|00004070| 72 6c 65 74 20 28 28 70 | 62 20 3a 48 50 61 72 61 |rlet ((p|b :HPara|
|00004080| 6d 42 6c 6f 63 6b 52 65 | 63 0d 20 20 20 20 20 20 |mBlockRe|c. |
|00004090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000040a0| 20 3a 69 6f 4e 61 6d 65 | 50 74 72 20 66 69 6c 65 | :ioName|Ptr file|
|000040b0| 4e 61 6d 65 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Name. | |
|000040c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 56 | | :ioV|
|000040d0| 52 65 66 4e 75 6d 20 76 | 52 65 66 4e 75 6d 0d 20 |RefNum v|RefNum. |
|000040e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000040f0| 20 20 20 20 20 20 3a 69 | 6f 44 69 72 49 44 20 64 | :i|oDirID d|
|00004100| 69 72 49 44 29 29 0d 20 | 20 20 20 20 20 20 20 20 |irID)). | |
|00004110| 20 20 20 20 20 28 72 65 | 71 75 69 72 65 2d 74 72 | (re|quire-tr|
|00004120| 61 70 20 23 5f 50 42 48 | 52 73 74 46 6c 6f 63 6b |ap #_PBH|RstFlock|
|00004130| 53 79 6e 63 20 70 62 29 | 29 29 29 0d 0d 28 64 65 |Sync pb)|)))..(de|
|00004140| 66 74 72 61 70 20 5f 48 | 52 65 6e 61 6d 65 20 28 |ftrap _H|Rename (|
|00004150| 28 76 52 65 66 4e 75 6d | 20 3a 73 69 67 6e 65 64 |(vRefNum| :signed|
|00004160| 2d 69 6e 74 65 67 65 72 | 29 20 28 64 69 72 49 44 |-integer|) (dirID|
|00004170| 20 3a 73 69 67 6e 65 64 | 2d 6c 6f 6e 67 29 20 28 | :signed|-long) (|
|00004180| 6f 6c 64 4e 61 6d 65 20 | 28 3a 73 74 72 69 6e 67 |oldName |(:string|
|00004190| 20 32 35 35 29 29 20 28 | 6e 65 77 4e 61 6d 65 20 | 255)) (|newName |
|000041a0| 28 3a 73 74 72 69 6e 67 | 20 32 35 35 29 29 29 0d |(:string| 255))).|
|000041b0| 20 20 28 3a 6e 6f 2d 74 | 72 61 70 20 3a 4f 53 45 | (:no-t|rap :OSE|
|000041c0| 72 72 29 0d 20 20 28 3a | 6e 6f 2d 74 72 61 70 20 |rr). (:|no-trap |
|000041d0| 28 72 6c 65 74 20 28 28 | 70 62 20 3a 48 50 61 72 |(rlet ((|pb :HPar|
|000041e0| 61 6d 42 6c 6f 63 6b 52 | 65 63 0d 20 20 20 20 20 |amBlockR|ec. |
|000041f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004200| 20 20 3a 69 6f 4e 61 6d | 65 50 74 72 20 6f 6c 64 | :ioNam|ePtr old|
|00004210| 4e 61 6d 65 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Name. | |
|00004220| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 56 | | :ioV|
|00004230| 52 65 66 4e 75 6d 20 76 | 52 65 66 4e 75 6d 0d 20 |RefNum v|RefNum. |
|00004240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004250| 20 20 20 20 20 20 3a 69 | 6f 4d 69 73 63 20 6e 65 | :i|oMisc ne|
|00004260| 77 4e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 20 20 |wName. | |
|00004270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00004280| 44 69 72 49 44 20 64 69 | 72 49 44 29 29 0d 20 20 |DirID di|rID)). |
|00004290| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 72 65 71 | | (req|
|000042a0| 75 69 72 65 2d 74 72 61 | 70 20 23 5f 50 42 48 52 |uire-tra|p #_PBHR|
|000042b0| 65 6e 61 6d 65 53 79 6e | 63 20 70 62 29 29 29 29 |enameSyn|c pb))))|
|000042c0| 0d 0d 28 64 65 66 74 72 | 61 70 20 5f 48 47 65 74 |..(deftr|ap _HGet|
|000042d0| 46 49 6e 66 6f 20 28 28 | 76 52 65 66 4e 75 6d 20 |FInfo ((|vRefNum |
|000042e0| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|000042f0| 20 28 64 69 72 49 44 20 | 3a 73 69 67 6e 65 64 2d | (dirID |:signed-|
|00004300| 6c 6f 6e 67 29 20 28 66 | 69 6c 65 4e 61 6d 65 20 |long) (f|ileName |
|00004310| 28 3a 73 74 72 69 6e 67 | 20 32 35 35 29 29 20 28 |(:string| 255)) (|
|00004320| 66 6e 64 72 49 6e 66 6f | 20 28 3a 70 6f 69 6e 74 |fndrInfo| (:point|
|00004330| 65 72 20 3a 66 69 6e 66 | 6f 29 29 29 0d 20 20 28 |er :finf|o))). (|
|00004340| 3a 6e 6f 2d 74 72 61 70 | 20 3a 4f 53 45 72 72 29 |:no-trap| :OSErr)|
|00004350| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 28 72 6c |. (:no-|trap (rl|
|00004360| 65 74 20 28 28 70 62 20 | 3a 48 50 61 72 61 6d 42 |et ((pb |:HParamB|
|00004370| 6c 6f 63 6b 52 65 63 0d | 20 20 20 20 20 20 20 20 |lockRec.| |
|00004380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00004390| 69 6f 4e 61 6d 65 50 74 | 72 20 66 69 6c 65 4e 61 |ioNamePt|r fileNa|
|000043a0| 6d 65 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |me. | |
|000043b0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 56 52 65 | | :ioVRe|
|000043c0| 66 4e 75 6d 20 76 52 65 | 66 4e 75 6d 0d 20 20 20 |fNum vRe|fNum. |
|000043d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000043e0| 20 20 20 20 3a 69 6f 46 | 44 69 72 49 6e 64 65 78 | :ioF|DirIndex|
|000043f0| 20 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0. | |
|00004400| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 44 69 72 | | :ioDir|
|00004410| 49 44 20 64 69 72 49 44 | 29 29 0d 20 20 20 20 20 |ID dirID|)). |
|00004420| 20 20 20 20 20 20 20 20 | 20 28 70 72 6f 67 31 0d | | (prog1.|
|00004430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004440| 28 72 65 71 75 69 72 65 | 2d 74 72 61 70 20 23 5f |(require|-trap #_|
|00004450| 50 42 48 47 65 74 46 49 | 6e 66 6f 53 79 6e 63 20 |PBHGetFI|nfoSync |
|00004460| 70 62 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |pb). | |
|00004470| 20 20 20 20 28 72 65 71 | 75 69 72 65 2d 74 72 61 | (req|uire-tra|
|00004480| 70 20 23 5f 42 6c 6f 63 | 6b 4d 6f 76 65 20 28 70 |p #_Bloc|kMove (p|
|00004490| 72 65 66 20 70 62 20 3a | 48 50 61 72 61 6d 62 6c |ref pb :|HParambl|
|000044a0| 6f 63 6b 52 65 63 2e 69 | 6f 46 6c 46 6e 64 72 49 |ockRec.i|oFlFndrI|
|000044b0| 6e 66 6f 29 20 66 6e 64 | 72 49 6e 66 6f 20 31 36 |nfo) fnd|rInfo 16|
|000044c0| 29 29 29 29 29 0d 0d 28 | 64 65 66 74 72 61 70 20 |)))))..(|deftrap |
|000044d0| 5f 48 53 65 74 46 49 6e | 66 6f 20 28 28 76 52 65 |_HSetFIn|fo ((vRe|
|000044e0| 66 4e 75 6d 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |fNum :si|gned-int|
|000044f0| 65 67 65 72 29 20 28 64 | 69 72 49 44 20 3a 73 69 |eger) (d|irID :si|
|00004500| 67 6e 65 64 2d 6c 6f 6e | 67 29 20 28 66 69 6c 65 |gned-lon|g) (file|
|00004510| 4e 61 6d 65 20 28 3a 73 | 74 72 69 6e 67 20 32 35 |Name (:s|tring 25|
|00004520| 35 29 29 20 28 66 6e 64 | 72 49 6e 66 6f 20 3a 66 |5)) (fnd|rInfo :f|
|00004530| 69 6e 66 6f 29 29 0d 20 | 20 28 3a 6e 6f 2d 74 72 |info)). | (:no-tr|
|00004540| 61 70 20 3a 4f 53 45 72 | 72 29 0d 20 20 28 3a 6e |ap :OSEr|r). (:n|
|00004550| 6f 2d 74 72 61 70 20 28 | 72 6c 65 74 20 28 28 70 |o-trap (|rlet ((p|
|00004560| 62 20 3a 48 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |b :HPara|mBlockRe|
|00004570| 63 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |c. | |
|00004580| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 4e 61 6d 65 | | :ioName|
|00004590| 50 74 72 20 66 69 6c 65 | 4e 61 6d 65 0d 20 20 20 |Ptr file|Name. |
|000045a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000045b0| 20 20 20 20 3a 69 6f 56 | 52 65 66 4e 75 6d 20 76 | :ioV|RefNum v|
|000045c0| 52 65 66 4e 75 6d 0d 20 | 20 20 20 20 20 20 20 20 |RefNum. | |
|000045d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 | | :i|
|000045e0| 6f 46 44 69 72 49 6e 64 | 65 78 20 30 0d 20 20 20 |oFDirInd|ex 0. |
|000045f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004600| 20 20 20 20 3a 69 6f 44 | 69 72 49 44 20 64 69 72 | :ioD|irID dir|
|00004610| 49 44 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ID)). | |
|00004620| 20 20 20 28 70 72 6f 67 | 31 0d 20 20 20 20 20 20 | (prog|1. |
|00004630| 20 20 20 20 20 20 20 20 | 20 20 28 72 65 71 75 69 | | (requi|
|00004640| 72 65 2d 74 72 61 70 20 | 23 5f 50 42 48 47 65 74 |re-trap |#_PBHGet|
|00004650| 46 49 6e 66 6f 53 79 6e | 63 20 70 62 29 0d 20 20 |FInfoSyn|c pb). |
|00004660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 72 | | (r|
|00004670| 65 71 75 69 72 65 2d 74 | 72 61 70 20 23 5f 42 6c |equire-t|rap #_Bl|
|00004680| 6f 63 6b 4d 6f 76 65 20 | 66 6e 64 72 49 6e 66 6f |ockMove |fndrInfo|
|00004690| 20 28 70 72 65 66 20 70 | 62 20 3a 48 50 61 72 61 | (pref p|b :HPara|
|000046a0| 6d 62 6c 6f 63 6b 52 65 | 63 2e 69 6f 46 6c 46 6e |mblockRe|c.ioFlFn|
|000046b0| 64 72 49 6e 66 6f 29 20 | 31 36 29 0d 20 20 20 20 |drInfo) |16). |
|000046c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 72 65 71 | | (req|
|000046d0| 75 69 72 65 2d 74 72 61 | 70 20 23 5f 50 42 48 53 |uire-tra|p #_PBHS|
|000046e0| 65 74 46 49 6e 66 6f 53 | 79 6e 63 20 70 62 29 29 |etFInfoS|ync pb))|
|000046f0| 29 29 29 0d 0d 28 64 65 | 66 74 72 61 70 20 5f 48 |)))..(de|ftrap _H|
|00004700| 47 65 74 56 6f 6c 20 28 | 28 76 6f 6c 4e 61 6d 65 |GetVol (|(volName|
|00004710| 20 28 3a 70 6f 69 6e 74 | 65 72 20 28 3a 73 74 72 | (:point|er (:str|
|00004720| 69 6e 67 20 32 35 35 29 | 29 29 20 28 76 52 65 66 |ing 255)|)) (vRef|
|00004730| 4e 75 6d 20 28 3a 70 6f | 69 6e 74 65 72 20 3a 73 |Num (:po|inter :s|
|00004740| 69 67 6e 65 64 2d 69 6e | 74 65 67 65 72 29 29 20 |igned-in|teger)) |
|00004750| 28 64 69 72 49 44 20 28 | 3a 70 6f 69 6e 74 65 72 |(dirID (|:pointer|
|00004760| 20 3a 73 69 67 6e 65 64 | 2d 6c 6f 6e 67 29 29 29 | :signed|-long)))|
|00004770| 0d 20 20 28 3a 6e 6f 2d | 74 72 61 70 20 3a 4f 53 |. (:no-|trap :OS|
|00004780| 45 72 72 29 0d 20 20 28 | 3a 6e 6f 2d 74 72 61 70 |Err). (|:no-trap|
|00004790| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 57 44 50 | (rlet (|(pb :WDP|
|000047a0| 42 52 65 63 0d 20 20 20 | 20 20 20 20 20 20 20 20 |BRec. | |
|000047b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 4e | | :ioN|
|000047c0| 61 6d 65 50 74 72 20 76 | 6f 6c 4e 61 6d 65 29 29 |amePtr v|olName))|
|000047d0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |. | (|
|000047e0| 70 72 6f 67 31 0d 20 20 | 20 20 20 20 20 20 20 20 |prog1. | |
|000047f0| 20 20 20 20 20 20 28 72 | 65 71 75 69 72 65 2d 74 | (r|equire-t|
|00004800| 72 61 70 20 23 5f 50 42 | 48 47 65 74 56 6f 6c 53 |rap #_PB|HGetVolS|
|00004810| 79 6e 63 20 70 62 29 0d | 20 20 20 20 20 20 20 20 |ync pb).| |
|00004820| 20 20 20 20 20 20 20 20 | 28 25 70 75 74 2d 77 6f | |(%put-wo|
|00004830| 72 64 20 76 52 65 66 4e | 75 6d 20 28 70 72 65 66 |rd vRefN|um (pref|
|00004840| 20 70 62 20 3a 57 44 50 | 42 52 65 63 2e 69 6f 57 | pb :WDP|BRec.ioW|
|00004850| 44 56 52 65 66 4e 75 6d | 29 29 0d 20 20 20 20 20 |DVRefNum|)). |
|00004860| 20 20 20 20 20 20 20 20 | 20 20 20 28 25 70 75 74 | | (%put|
|00004870| 2d 6c 6f 6e 67 20 64 69 | 72 49 44 20 28 70 72 65 |-long di|rID (pre|
|00004880| 66 20 70 62 20 3a 57 44 | 50 42 52 65 63 2e 69 6f |f pb :WD|PBRec.io|
|00004890| 57 44 44 69 72 49 44 29 | 29 29 29 29 29 0d 0d 3b |WDDirID)|)))))..;|
|000048a0| 48 53 65 74 56 6f 6c 20 | 2d 20 6f 6d 69 74 74 65 |HSetVol |- omitte|
|000048b0| 64 20 66 72 6f 6d 20 49 | 4d 20 56 49 20 2d 20 73 |d from I|M VI - s|
|000048c0| 65 65 20 54 4e 23 31 34 | 30 20 26 20 49 4d 20 56 |ee TN#14|0 & IM V|
|000048d0| 49 20 70 2e 20 32 35 2d | 37 0d 0d 3b 3b 3b 3b 3b |I p. 25-|7..;;;;;|
|000048e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000048f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004900| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004910| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004920| 3b 0d 3b 3b 3b 20 48 69 | 67 68 20 4c 65 76 65 6c |;.;;; Hi|gh Level|
|00004930| 20 44 61 74 61 20 46 6f | 72 6b 20 4f 70 65 6e 69 | Data Fo|rk Openi|
|00004940| 6e 67 20 52 6f 75 74 69 | 6e 65 73 20 2d 20 49 4d |ng Routi|nes - IM|
|00004950| 20 56 49 20 70 2e 20 32 | 35 2e 33 34 0d 0d 28 64 | VI p. 2|5.34..(d|
|00004960| 65 66 74 72 61 70 20 5f | 48 4f 70 65 6e 44 46 20 |eftrap _|HOpenDF |
|00004970| 28 28 76 52 65 66 4e 75 | 6d 20 3a 73 69 67 6e 65 |((vRefNu|m :signe|
|00004980| 64 2d 69 6e 74 65 67 65 | 72 29 20 28 64 69 72 49 |d-intege|r) (dirI|
|00004990| 44 20 3a 73 69 67 6e 65 | 64 2d 6c 6f 6e 67 29 20 |D :signe|d-long) |
|000049a0| 28 66 69 6c 65 4e 61 6d | 65 20 28 3a 73 74 72 69 |(fileNam|e (:stri|
|000049b0| 6e 67 20 32 35 35 29 29 | 20 28 70 65 72 6d 69 73 |ng 255))| (permis|
|000049c0| 73 69 6f 6e 20 3a 73 69 | 67 6e 65 64 2d 62 79 74 |sion :si|gned-byt|
|000049d0| 65 29 20 28 72 65 66 4e | 75 6d 20 28 3a 70 6f 69 |e) (refN|um (:poi|
|000049e0| 6e 74 65 72 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |nter :si|gned-int|
|000049f0| 65 67 65 72 29 29 29 0d | 20 20 28 3a 6e 6f 2d 74 |eger))).| (:no-t|
|00004a00| 72 61 70 20 3a 4f 53 45 | 72 72 29 0d 20 20 28 3a |rap :OSE|rr). (:|
|00004a10| 6e 6f 2d 74 72 61 70 20 | 28 72 6c 65 74 20 28 28 |no-trap |(rlet ((|
|00004a20| 70 62 20 3a 48 50 61 72 | 61 6d 42 6c 6f 63 6b 52 |pb :HPar|amBlockR|
|00004a30| 65 63 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec . | |
|00004a40| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4e 61 | | :ioNa|
|00004a50| 6d 65 50 74 72 20 66 69 | 6c 65 4e 61 6d 65 0d 20 |mePtr fi|leName. |
|00004a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a70| 20 20 20 20 20 20 3a 69 | 6f 56 52 65 66 4e 75 6d | :i|oVRefNum|
|00004a80| 20 76 52 65 66 4e 75 6d | 0d 20 20 20 20 20 20 20 | vRefNum|. |
|00004a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004aa0| 3a 69 6f 50 65 72 6d 73 | 73 6e 20 70 65 72 6d 69 |:ioPerms|sn permi|
|00004ab0| 73 73 69 6f 6e 0d 20 20 | 20 20 20 20 20 20 20 20 |ssion. | |
|00004ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f | | :io|
|00004ad0| 44 69 72 49 44 20 64 69 | 72 49 44 29 29 0d 20 20 |DirID di|rID)). |
|00004ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 70 72 6f | | (pro|
|00004af0| 67 31 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |g1. | |
|00004b00| 20 20 20 28 72 65 71 75 | 69 72 65 2d 74 72 61 70 | (requ|ire-trap|
|00004b10| 20 23 5f 50 42 48 4f 70 | 65 6e 44 46 53 79 6e 63 | #_PBHOp|enDFSync|
|00004b20| 20 70 62 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | pb). | |
|00004b30| 20 20 20 20 20 28 25 70 | 75 74 2d 77 6f 72 64 20 | (%p|ut-word |
|00004b40| 72 65 66 4e 75 6d 20 28 | 70 72 65 66 20 70 62 20 |refNum (|pref pb |
|00004b50| 3a 48 50 61 72 61 6d 42 | 6c 6f 63 6b 52 65 63 2e |:HParamB|lockRec.|
|00004b60| 69 6f 52 65 66 4e 75 6d | 29 29 29 29 29 29 0d 0d |ioRefNum|))))))..|
|00004b70| 28 64 65 66 74 72 61 70 | 20 5f 4f 70 65 6e 44 46 |(deftrap| _OpenDF|
|00004b80| 20 28 28 66 69 6c 65 4e | 61 6d 65 20 28 3a 73 74 | ((fileN|ame (:st|
|00004b90| 72 69 6e 67 20 32 35 35 | 29 29 20 28 76 52 65 66 |ring 255|)) (vRef|
|00004ba0| 4e 75 6d 20 3a 73 69 67 | 6e 65 64 2d 69 6e 74 65 |Num :sig|ned-inte|
|00004bb0| 67 65 72 29 20 28 72 65 | 66 4e 75 6d 20 28 3a 70 |ger) (re|fNum (:p|
|00004bc0| 6f 69 6e 74 65 72 20 3a | 73 69 67 6e 65 64 2d 69 |ointer :|signed-i|
|00004bd0| 6e 74 65 67 65 72 29 29 | 29 0d 20 20 28 3a 6e 6f |nteger))|). (:no|
|00004be0| 2d 74 72 61 70 20 3a 4f | 53 45 72 72 29 0d 20 20 |-trap :O|SErr). |
|00004bf0| 28 3a 6e 6f 2d 74 72 61 | 70 20 28 72 6c 65 74 20 |(:no-tra|p (rlet |
|00004c00| 28 28 70 62 20 3a 50 61 | 72 61 6d 42 6c 6f 63 6b |((pb :Pa|ramBlock|
|00004c10| 52 65 63 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Rec . | |
|00004c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 4e | | :ioN|
|00004c30| 61 6d 65 50 74 72 20 66 | 69 6c 65 4e 61 6d 65 0d |amePtr f|ileName.|
|00004c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004c50| 20 20 20 20 20 20 20 3a | 69 6f 56 52 65 66 4e 75 | :|ioVRefNu|
|00004c60| 6d 20 76 52 65 66 4e 75 | 6d 0d 20 20 20 20 20 20 |m vRefNu|m. |
|00004c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004c80| 20 3a 69 6f 50 65 72 6d | 73 73 6e 20 23 24 66 73 | :ioPerm|ssn #$fs|
|00004c90| 43 75 72 50 65 72 6d 29 | 29 0d 20 20 20 20 20 20 |CurPerm)|). |
|00004ca0| 20 20 20 20 20 20 20 20 | 28 70 72 6f 67 31 0d 20 | |(prog1. |
|00004cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00004cc0| 72 65 71 75 69 72 65 2d | 74 72 61 70 20 23 5f 50 |require-|trap #_P|
|00004cd0| 42 4f 70 65 6e 44 46 53 | 79 6e 63 20 70 62 29 0d |BOpenDFS|ync pb).|
|00004ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004cf0| 28 25 70 75 74 2d 77 6f | 72 64 20 72 65 66 4e 75 |(%put-wo|rd refNu|
|00004d00| 6d 20 28 70 72 65 66 20 | 70 62 20 3a 50 61 72 61 |m (pref |pb :Para|
|00004d10| 6d 42 6c 6f 63 6b 52 65 | 63 2e 69 6f 52 65 66 4e |mBlockRe|c.ioRefN|
|00004d20| 75 6d 29 29 29 29 29 29 | 0d 00 00 00 00 00 00 00 |um))))))|........|
|00004d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d80| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 46 |.......Z|...Z...F|
|00004d90| 70 73 29 0d 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ps).;;;;|;;;;;;;;|
|00004da0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004db0| 0b 2b 46 69 6c 65 73 2e | 6c 69 73 70 02 00 00 00 |.+Files.|lisp....|
|00004dc0| 54 45 58 54 43 43 4c 32 | 40 00 00 00 00 00 00 00 |TEXTCCL2|@.......|
|00004dd0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|00004de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004df0| 00 00 a4 9f 91 ed 00 00 | 00 00 00 00 01 a0 39 31 |........|......91|
|00004e00| 20 4e 6f 72 74 68 77 65 | 73 74 65 72 6e 20 55 6e | Northwe|stern Un|
|00004e10| 69 76 65 72 73 69 74 79 | 20 49 6e 73 74 69 74 75 |iversity| Institu|
|00004e20| 74 65 20 66 6f 72 20 74 | 68 65 20 4c 65 61 72 6e |te for t|he Learn|
|00004e30| 69 6e 67 20 53 63 69 65 | 6e 63 65 73 0d 3b 3b 20 |ing Scie|nces.;; |
|00004e40| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00004e50| 76 65 64 0d 3b 3b 0d 3b | 3b 20 61 75 74 68 6f 72 |ved.;;.;|; author|
|00004e60| 73 3a 20 54 61 6d 61 72 | 20 4f 66 66 65 72 2d 59 |s: Tamar| Offer-Y|
|00004e70| 65 68 6f 73 68 75 61 0d | 3b 3b 20 20 20 20 20 20 |ehoshua.|;; |
|00004e80| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00004e90| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|00004ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004eb0| 00 00 00 00 00 06 00 08 | 00 50 01 95 03 3c 03 c9 |........|.P...<..|
|00004ec0| 00 50 01 95 03 3c 03 c9 | 00 00 00 00 00 00 05 34 |.P...<..|.......4|
|00004ed0| 00 00 05 34 00 00 00 00 | 01 00 00 00 01 00 00 00 |...4....|........|
|00004ee0| 01 5a 00 00 00 5a 00 00 | 00 46 00 37 d3 2c 08 16 |.Z...Z..|.F.7.,..|
|00004ef0| 00 00 00 1c 00 46 00 01 | 46 52 45 44 00 00 00 12 |.....F..|FRED....|
|00004f00| 4d 50 53 52 00 00 00 1e | 00 02 ff ff 00 00 00 00 |MPSR....|........|
|00004f10| 00 00 00 00 03 ed ff ff | 00 00 00 0e 00 37 ea 20 |........|.....7. |
|00004f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+